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INTRODUCCION 


L lenguaje de programación más utilizado en el desarro- 
llo de aplicaciones de gestión es el COBOL. 

COBOL son las siglas de Common Business Oriented 
Language (lenguaje común orientado a los negocios). Este 
lenguaje fue producto de una reunión celebrada en Esta- 
dos Unidos en 1959, entre fabricantes de ordenadores y 
usuarios de los mismos. 

Al año siguiente de la reunión reseñada anteriormen- 
te, surgió la primera versión del lenguaje COBOL, deno- 
minándose COBOL-60. Este primer producto fue depurándose, dando lu- 
gar a nuevas versiones, como COBOL-61, COBOL-62, etc. 

En 1968 se iniciaron los pasos para estandarizar dicho lenguaje. Se ocu- 
paba de ello el American National Standard Institute. De esta forma sur- 
gió el ANS COBOL. 

Una propiedad importante del COBOL es su legibilidad. Su sintaxis está 
muy próxima a la gramática inglesa, lo que permite leer un programa es- 
crito en COBOL como si se tratase de un texto escrito en inglés. 

Es un lenguaje orientado, como ya se ha dicho antes, a las aplicaciones 
de gestión por su estructura y diseño; en cambio, no es adecuado para rea- 
lizar programas que requieran cálculos de expresiones matemáticas com- 
plejas. 


ESTRUCTURA DE UN PROGRAMA 
COBOL 


- N programa COBOL se compone de cuatro “DIVISIO- 
NES“ que siempre deben aparecer en el mismo. 
Estas son: 


— IDENTIFICATION DIVISION. 
— ENVIRONMENT DIVISION. 
=== — DATA DIVISION. 
== — PROCEDURE DIVISION. 


En la primera se refleja el nombre del programa, del 
autor, la fecha de escritura, etc. Es decir, aporta información adicional al 
programa. 

La ENVIRONMENT DIVISION informará al compilador del número y 
tipo de los ficheros que se van a utilizar. 

La descripción de los registros de los ficheros y todas las variables que 
necesita el programa se realiza en la DATA DIVISION. 

Por último, en la PROCEDURE DIVISION es donde se encuentran las 
instrucciones ejecutables. 

Las tres primeras divisiones son de información y definición, siendo la 
última donde se hallan las instrucciones concretas que solventan el pro- 
blema que quiere ser abordado. 

El nombre de las cuatro divisiones debe aparecer en todo programa CO- 
BOL, aunque alguna de ellas (ENVIRONMENT y/o DATA) pueda estar va- 
cía. 


IDENTIFICATION DIVISION Sl 


STA primera división de un programa COBOL tiene, como 

función principal, la de asignar un nombre al programa, 

además de aportar otra serie de información adicional. 
Su estructura es la siguiente: 


IDENTIFICATION DION 
ID DIVISION. 

PROGRAM-ID. Nombre del programa. 
[DATE-WRITTEN. Fecha de escritura.] 
[INSTALLATION. Nombre de la instalación.] 
[DATE-WRITTEN. Fecha de escritura.] 
[DATE-COMPILED. Fecha de la última compilación.] 
[SECURITY. Notas de seguridad. ] 

[REMARKS. Comentarios. ] 


En la definición de la estructura se utilizan determinados símbolos con 
significación propia, que se repetirán a lo largo de todo el libro. Estos se 
explican a continuación. 

Las llaves indican que dentro de las opciones que encierran, hay que 
elegir obligatoriamente una. En este caso, es necesario seleccionar una de 
las dos formas: 


— IDENTIFICATION DIVISION, o 
— ID DIVISION. 


La cláusula encerrada entre corchetes es opcional, no es obligatorio uti- 
lizarla. Refiriéndonos de nuevo al ejemplo, no es obligatorio poner AUT- 
HOR, INSTALLATION, DATE-WRITTEN, etc. 


Por último, las palabras subrayadas indican que en caso de selección 
de esa cláusula, es obligatorio que se encuentren en la misma. 


Por la estructura de la IDENTIFICATION se deduce que sólo es obli- 


9 


gatorio que aparezcan las cláusulas: IDENTIFICATION DIVISION o ID DI- 
VISION y PROGRAM-ID, siendo el resto opcional. 

El nombre del programa debe aparecer después de PROGRAM-ID. Este 
debe ser, como máximo, de ocho caracteres. Si se utilizan más de ocho ca- 
racteres, éstos serán ignorados por el compilador. 

El párrafo AUTHOR se utiliza para introducir el nombre del programa- 
dor. 

En INSTALLATION se refleja en qué instalación ha sido desarrollado 
el programa. 

La fecha de redacción del programa aparecerá en DATE-WRITTEN. 

Detrás de DATE-COMPILED mostrará la última fecha de compilación 
del programa. Esta es escrita por el propio compilador, sustituyendo la 
que hubiese antes. 

Los mensajes de seguridad sobre uso o manipulación del programa se 
encuentran en el párrafo encabezado por SECURITY. 

Si se desea introducir un grupo de comentarios se realizará en RE- 
MARKS. 

Un ejemplo de IDENTIFICATION DIVISION es el siguiente: 


IDENTIFICATION DIVISION 

PROGRAM-ID. PEDIDOS. 

AUTHOR. E.P.H. 

INSTALLATION. CENTRO DE CALCULO DE AlA. 

DATE-WRITTEN. MARZO 1987. 

DATE-COMPILED. 

SECURITY. ESTE PROGRAMA SOLO PUEDE SER UTILIZADO POR 
PERSONAL AUTORIZADO POR AIA. 

REMARKS. PROGRAMA PARA LA CONFECCION DE PEDIDOS DE 
MATERIAL. 
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PRIMER PROGRAMA COBOL d 


N este apartado se van a estudiar los elementos básicos 
para poder realizar un programa COBOL muy sencillo que 
sirva para fijar ideas, y como base para seguir avanzando 
en el estudio de este lenguaje. 

El lector ya conoce la estructura de la IDENTIFICA- 
TION DIVISION por el apartado anterior. 

De momento, no se van a tratar la ENVIRONMENT DI- 
VISION ni la DATA DIVISION. Se verán más adelante. 

A continuación se explican dos instrucciones ejecuta- 
bles del lenguaje COBOL, que nos permitirán escribir nuestro primer pro- 
grama. El formato de la primera instrucción es: 


literal 
DISPLAY | | | 


campo 


De la estructura del anterior formato se deduce que puede aparecer un 
DISPLAY solo, o un DISPLAY seguido de uno o varios literales, y uno o 
varios campos; pudiendo estar entremezclados campos y literales. 

Esta estructura COBOL visualiza en la pantalla el mensaje y/o los cam- 
pos que acompañan al DISPLAY. 

Un literal en COBOL es una ristra de caracteres de todos los tipos, de 
longitud no mayor de 120, todos ellos encerrados entre apóstrofos. 

Todo programa debe tener un final. En COBOL la instrucción que per- 
mite parar la ejecución es: 


STOP RUN 


Por último, vamos a definir lo que es un nombre de párrafo. 
Se llama nombre de párrafo a un nombre creado por el programador 
que agrupa a un conjunto de instrucciones COBOL. 


ll 
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Es importante que ese nombre de párrafo denote lo que realizan las ins- 
trucciones que agrupa. 

La longitud máxima de un nombre de párrafo es de 30 caracteres. 

Ya se está en disposición de escribir un programa COBOL. Un ejemplo 
se muestra a continuación. 


Se puede ver en el ejemplo cómo están reflejadas las cuatro divisiones, 
aunque dos de ellas estén vacías porque para este programa no son necesa- 
rias. 
La IDENTIFICATION DIVISION tiene alguno de los párrafos opciona- 
les. En los programas que se hagan a continuación sólo pondremos la cláu- 
sula obligatoria PROGRAM-ID, no escribiendo el resto, que son optativas; 
pero se debe recalcar que es conveniente escribir, en todos los programas 
que se hagan, el autor y la fecha en que se han escrito. En la PROCEDURE 
DIVISION se distinguen dos nombres de párrafo. El primero de ellos agru- 
pa a las dos instrucciones DISPLAY. 

Muchos compiladores obligan a que aparezca siempre un nombre de 
párrafo después de la cláusula PROCEDURE DIVISION. 

El segundo nombre de párrafo contiene la instrucción de final de eje- 
cución del programa. 

El ejemplo contiene dos instrucciones DISPLAY con un literal cada una 
de ellas. 

La ejecución de este programa mostrará por pantalla los dos literales 
en sendas líneas, una por cada DISPLAY. 

Como se puede comprobar, no es complicado escribir un programa en 
COBOL. 


1.2 


MARGENES Y PUNTUACION ps 


diferencia de otros lenguajes, la sintaxis en la escritura de 
un programa COBOL está sometida a unas normas rígidas. 

Echando una rápida mirada al ejemplo anterior, se ob- 
serva que hay sentencias que están más a la derecha que 
otras; esto no es por capricho, sino porque cada tipo de 
sentencia debe comenzar en su correspondiente “MAR- 
GEN”. 

Imagínese que está sentado delante de la pantalla de 
su ordenador, dispuesto a introducir el ejemplo anterior. 
El ancho de la línea de pantalla es de 80 caracteres. Vamos a ver a conti- 
nuación cómo distribuye el COBOL esos 80 caracteres. 

Los 6 primeros se pueden utilizar para numerar las líneas. Esto era muy 
frecuente realizarlo cuando se trabajaba con fichas perforadas. Era conve- 
niente numerarlas por si ocurría la “desgracia” de que el taco de tarjetas 
se cayera y se descolocase por completo. Si las fichas estaban numeradas, 
la labor de “reconstrucción” del programa era menos ardua. 

Pero con la implantación de terminales, a través de los cuales se intro- 
ducen y modifican programas, la numeración de sentencias ha caído en de- 
suso, dejándose esas seis columnas en blanco. 

La columna 7 tiene un significado especial, que veremos a continua- 
ción. 

Las columnas de la 8 a la 11 componen el “MARGEN A”. 

En el margen A debe aparecer al menos el primer carácter del nombre 
de todas las divisiones, todas las cláusulas que forman la IDENTIFICATION 
DIVISION y todos los nombres de párrafos. 

Las columnas desde la 12 a la 72 son las que forman el “MARGEN B”. 
En éste se encuentran todas las instrucciones que aparecen en la PROCE- 
DURE DIVISION. 

A medida que vayan apareciendo nuevas sentencias se irán enmarcan- 
do en el margen adecuado. 
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Cuando se dice que una sentencia debe comenzar en el margen A, pue- 
de utilizarse para ello cualquiera de las 4 columnas que lo forman. Algu- 
nos programadores acostumbran a poner el nombre de las divisiones en 
la columna 8 y las cláusulas que la componen, que deben encuadrarse tam- 
bién en el margen A, en las columnas siguientes. Esto da un efecto de je- 
rarquía que puede facilitar la labor de lectura del programa. 

Esto también es válido para el margen B. 

Las columnas que van desde la 73 a la 80 son ignoradas por el compi- 
lador, es decir, en ellas puede colocarse cualquier cosa. Por tanto, toda ins- 
trucción COBOL puede ocupar como máximo hasta la columna 72. 

Por último, queda por explicar el significado de la columna 7. 

En ésta pueden aparecer tres caracteres: 


— Un blanco que denota que es una línea normal. 
“*” el asterisco significa que la línea es de comentario. El progra- 
mador podrá insertar en ella lo que quiera, el compilador lo ignorará. 
“ «“ 


— “-“, el guión indica que la línea actual es continuación de la ante- 
rior. 


A continuación se presenta un ejemplo en el que se reflejan todos los 
aspectos explicados en este apartado. 


HAN | 
RAM=ID. MARGENES. ——— == 
10. EPH. => Es 
WRITTEN. ABRIL=87.- AZAR == 


4 
!] 
| 
| 
| 
| 
' 
) 
| 
| 
| 
Ñ 


/MRONMENT DIVISION. 


DIVISION. _— == 


OEDURE: A == 
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Se puede ver en este ejemplo una instrucción que es un comentario 
(en la columna 7 un asterisco). 

También existe una instrucción DISPLAY que ocupa dos líneas. 

El proceso consiste en finalizar de poner el contenido del literal cuan- 
do se llegue a la posición 72, sin cerrar el apóstrofo. En la línea siguiente 
poner en la columna 7 un guión, colocar un apóstrofo en cualquier co- 
lumna del margen B, continuar el literal y cuando acabe poner otro após- 
trofo. 

Si necesitase más líneas de continuación se repetiría el proceso tantas 
veces como fuese necesario. El número máximo de líneas de continuación 
está en función del compilador utilizado; suele ser de 7 líneas. 

Como puede observarse en los dos ejemplos presentados, todas las ins- 
trucciones acaban en punto. Esto es otra norma que ha de cumplirse. Sólo 
es opcional en las instrucciones dentro de la PROCEDURE DIVISION, en 
las que puede no ponerse, excepto en los nombres de párrafo y en las ins- 
trucciones inmediatamente superiores que preceden a estos nombres de 
párrafo. 

También existen otras normas de puntuación que pueden resumirse en 
las siguientes reglas: 


— Los caracteres coma, punto y coma y punto, no pueden ir precedi- 
dos de un espacio en blanco, pero deben ir seguidos al menos por uno. 

— El paréntesis izquierdo no puede ir seguido de un espacio. 

— El paréntesis derecho no debe ir precedido de un espacio. 

— El signo igual y los operadores aritméticos deben estar precedidos 
y seguidos por un blanco. 


Estas reglas siempre deben tenerse en cuenta durante la confección de 
un programa COBOL, porque si no se hace así, los errores de compilación 
serán abundantes. 
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CAMPOS VARIABLES 56 


O habitual en cualquier programa es utilizar campos va- 
riables, cuyo valor se vaya modificando a lo largo de la eje- 
cución del mismo. 

Estos deben definirse dentro de una sección de la 
DATA DIVISION. Esta tiene dos secciones: 


— FILE SECTION. 
— WORKING-STORAGE SECTION. 


Ambas se encuadran en el margen A. 
La FILE SECTION se estudiará junto a la ENVIRON- 
MENT DIVISION porque están íntimamente relacionadas. 
La definición de todos los campos de trabajo se realiza en la WORKING- 
STORAGE SECTION. 
Para describir un campo es necesario conocer el concepto de número 
de nivel y formato del campo. 
Se van a explicar estos conceptos sobre el siguiente ejemplo, que mues- 
tra la parte correspondiente a la DATA DIVISION de un programa. 


05 DNI - — FRA 
05 NOMINAL. - == 
10 MOMBRE-= HT 
10 APELLIDOS : PIC X (30). 
0S DIRECCION. === 
A AAA AAA 
10 NUMERO. PIC XD. 
= 10 COD=POST FICOXISI. 


A la izquierda del nombre de los campos se observa que aparecen unos 
números (01, 05 y 10). Estos son los números de nivel. Pueden tomar va- 
lores entre 01 y 49. Con los números de nivel se establece una jerarquía 
dentro de la estructura de cada dato. 

El nombre de campo calificado con un número de nivel 01 es el que 
globaliza todos los subcampos, en el caso de que los hubiera. 

En la primera línea de la WORKING del ejemplo se describe un campo 
individual (que no está subdividido) y, por tanto, está calificado con un nú- 
mero de nivel 01. 

El número de nivel 01 debe estar en el margen A, pero el nombre que 
le sigue debe comenzar en el margen B. Para el resto de niveles puede apli- 
carse la regla anterior o, lo que es más habitual, comenzar en el margen B. 

En la descripción del segundo campo vemos que éste es un campo sub- 
dividido. Cualquier fecha puede subdividirse en día, mes y año. En el ejem- 
plo que se presenta esta división se ha producido. 

Hay un campo global que es FECHA con nivel 01, y tres subcampos 
que componen el anterior: DIA, MES y AGNO con nivel 05. 

Al ver un número de nivel mayor que 01, significa que éste forma parte 
del número de nivel inferior inmediatamente anterior. En este caso los 
tres subcampos dependen directamente de FECHA, porque es el único nú- 
mero de nivel inferior a 05 inmediatamente anterior. 

Si en el programa se desea acceder sólo al mes, haremos referencia al 
subcampo MES. Pero si se desea acceder a la fecha en conjunto, se utili- 
zará el campo global FECHA, que contiene la fecha al completo. El siguien- 
te campo que aparece en la WORKING es IDENTIFICACION. Como pue- 
de verse, éste tiene tres niveles de división. NOMBRE y APELLIDOS for- 
man el subcampo NOMINAL. DIRECCION está compuesto por CALLE, 
NUMERO y COD-POST. 

Esta jerarquía de los campos viene reflejada por los números de nivel. 
En el ejemplo, los de nivel 10 dependen del nivel 05, y los tres de nivel 05 
(DNI, NOMINAL y DIRECCION) dependen del nivel 01 IDENTIFICACION. 

De esta forma se puede ir subdividiendo la información todo lo nece- 
sario, con la utilización de los números de nivel. 
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Detrás de estos niveles aparece el nombre del campo. Estos pueden te- 
ner una longitud máxima de 30 caracteres y deben ser letras, números o 
guiones; siempre que un campo no empiece o acabe con guión, ni tenga 
como primer caracter un dígito. 

El nombre de un campo nunca debe coincidir con una “palabra reser- 
vada”. Palabras reservadas son todas aquellas que tienen un significado de- 
terminado para el compilador. Es decir, un nombre de campo no podría 
ser PROCEDURE, porque se confundiría con la PROCEDURE DIVISION. 
Tampoco podría utilizarse SECTION, FILE, etc. A continuación del nom- 
bre del campo viene la palabra reservada PIC o PICTURE. Esta denota que 
los caracteres que vengan detrás definen el tipo de datos que va a conte- 
ner la variable y su longitud. Ahora se estudiarán tres caracteres que defi- 
nen otros tantos tipos de variables. 


— A. La variable es alfabética. Podrá contener letras y el espacio en 
blanco. 

— X. La variable es alfanumérica. Contendrá cualquier carácter. 

— 9. La variable es numérica, su contenido serán dígitos del 0 al 9. 


En la WORKING mostrada en la figura 3 se observa que la variable 
NOMBRE es alfanumérica y su longitud es de 15 caracteres, como indica 
el número encerrado entre paréntesis que sigue a “X”. 

Es equivalente poner X(15) o 15 X's seguidas. Siempre se adopta la pri- 
mera forma, porque es más segura y cómoda. 

El subcampo MES es numérico y de longitud 2. El campo FECHA tiene 
longitud 6, recuerde que agrupa a DIA, MES y AGNO. 

APELLIDOS es alfanumérico de longitud 30. El subcampo NOMINAL 
es alfanumérico y consta de 45 caracteres, mientras que IDENTIFICACION 
tendrá 84 caracteres de longitud. 
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INSTRUCCION DE MOVIMIENTO y 


A se sabe cómo definir campos variables en la WORKING- 
STORAGE SECTION. A continuación se explicarán algu- 
nas de las herramientas para utilizar esas variables en la 
PROCEDURE DIVISION. 

El verbo de movimiento es el siguiente: 


literal 
TO campo-2... 


MOVE 


.campo-1 


El significado de esta instrucción es el siguiente: el li- 


El siguiente programa es una aplicación de la sentencia que se acaba 
de estudiar. 


=== MOVE > ANTONIO”. 10 NOMBRE= === 


=== == INICIAL = 
— FIN=PROGRAMA. = === = === = = 
=== === 


En este ejemplo se han definido tres campos alfanuméricos (NOM- 
BRE-1, NOMBRE-2, INICIAL) de longitudes 10, 4 y 1, respectivamente. 

Las dos primeras instrucciones son dos MOVE's que introducen el con- 
tenido de dos literales en los campos NOMBRE-1 y NOMBRE-2. El conte- 
nido de estos campos después de ejecutarse esas instrucciones será el si- 
guiente: 


NOMBRE1 [A|N[T[O[NÍ[1]jO| 
NOMBRE-2 


El primer movimiento es de un literal de longitud 7 a un campo de lon- 
gitud 10. Al pasar al campo, el literal se ajusta a la izquierda y rellena con 
blancos por la derecha hasta completar la longitud del campo. 

En el segundo movimiento el número de caracteres del literal coinci- 
de con los que puede contener el campo. 

Después se muestra por pantalla el contenido del campo NOMBRE-1 
mediante la instrucción DISPLAY. El resultado de ejecutarla será: 


ANTONIO 


La siguiente instrucción consiste en llevar el contenido del campo 
NOMBRE-2 (que es “JUAN”) a los campos NOMBRE-1 e INICIAL. 
El resultado será: 


NOMBRE-1 [|J[UJA|[N| | | [ | | 
INICIAL 


El contenido del NOMBRE-1 antes de ejecutarse la sentencia era “AN- 
TONIO”, después del MOVE este valor desaparece y es sustituido por 
“JUAN”, más los blancos de relleno por la derecha. Es decir, después de 
un MOVE el campo receptor siempre pierde el contenido que tuviese. 

En la misma instrucción se hace también un movimiento al campo INI- 
CIAL. La longitud de éste es de 1; por tanto, no podrá almacenar todo el 
contenido de la variable NOMBRE-2. El proceso que se produce es el si- 
guiente: se empieza a ajustar los caracteres por la izquierda hasta comple- 
tar la longitud del campo receptor, perdiéndose los caracteres que no que- 
pan. Se produce un truncamiento. 


Lila 


El contenido de INICIAL será “J”, perdiéndose “UAN”. 

A diferencia del campo receptor, el emisor, después de ejecutarse una 
instrucción MOVE, no pierde su valor. 

En el ejemplo, después de realizarse la última instrucción de movimien- 
to que se ha tratado, el contenido de NOMBRE-2 seguirá siendo “JUAN”. 

En el programa, la sentencia siguiente es un DISPLAY compuesto por 
literales y variables, cuyo resultado será: 


LA INICIAL DE JUAN ES J 


Las instrucciones de movimiento no son sólo aplicables a campos al- 
fanuméricos, sino también a numéricos, como muestra el siguiente ejem- 
plo. 


= IDENTIFICATION DIVISION. == = 
> PROGRAM-1D. EJ-MOVES-=2. - = 
E ENVIRONMENT DIVISION. = == = == = == 


=== DATA DIVISION: 1 A AR 


FILE SECTION. 


== WORK ING-STORAGE - SECTION. _— A == = = 


DECIAS PICAS. === 
=== === 
91 EXEPA= PA 


2 PROCEDURE DIVISION. 

- AAA 
=== HOYE 2914 70 CIFRA L 
= MOVE 32 TO CIFRA-2. 


DISPLAY CIFRA=1 >” CIFRA-2. - 
= AREAS 
A CIFRA=3. - =_ 
> _—— DISPLAY CIFRA= A e 


: FIN-PROGRAMA. 
> PP. e | ES = = 


Este programa es análogo al anterior, diferenciándose sólo en que éste 
utiliza campos numéricos en lugar de alfanuméricos. 


Las dos primeras instrucciones consisten en mover el contenido de dos 
literales numéricos (no están encerrados entre apóstrofos) a otros tantos 
campos numéricos. 


El resultado de estos movimientos es el siguiente: 
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CIFRA-1 0.2834 
CIFRA-2 0.3 2 


En el movimiento numérico, al contrario que en los alfanuméricos, se 
ajustan los campos por la derecha, rellenando con ceros no significativos 
por la izquierda. 

El resultado después de ejecutarse el primer DISPLAY será: 


02834 032 


El contenido de los campos CIFRA-2 y CIFRA-3 después de ejecutarse 
la siguiente instrucción de movimiento será: 


CIFRA-1 0003 2 
CIFRA-3 Z 


Al igual que antes, el contenido anterior del campo receptor desapare- 
ce y el del emisor permanece. En CIFRA-1 se ha introducido el contenido 
de CIFRA-2, ajustando por la derecha y rellenando a ceros por la izquierda. 

La longitud de CIFRA-3 es menor que la del campo emisor; por tanto, 
se producirá truncamiento. Comienzan a colocarse las cifras por la dere- 
cha, perdiéndose las que no quepan, en este caso el 3. 

Por último, hay que reseñar que un campo numérico puede ser movi- 
do a uno alfanumérico, pero no al revés, porque se producirá un error de 
compilación. 

Hay que tener cuidado con el tipo del campo emisor y receptor para 
que no surjan problemas como éste. 
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CONSTANTES FIGURATIVAS 8 


XISTE un grupo de constantes que tienen un valor prede- 
finido por el COBOL. Se conocen como constantes figu- 
rativas y son las siguientes: 


— ZERO: representa el valor cero o ceros. Puede asig- 
narse a campos alfanuméricos y numéricos. 

— ZEROS o ZEROES: es la forma plural de ZERO y 
equivalente a ella. 

— SPACE o SPACES: representan uno o varios espa- 
cios en blanco. 

— QUOTE o QUOTES: denotan uno o más apóstrofos. 

— ALL “carácter”: representa cualquier aparición del juego de carac- 
teres que maneje el ordenador, excepto el apóstrofo. El carácter que se re- 
pite es el que está encerrado entre apóstrofos siguiendo a la palabra reser- 
vada ALL. 

— HIGH-VALUE o HIGH-VALUES: representa uno o más sucesos del 
valor más elevado del código de caracteres usado. 

— LOW-VALUE o LOW-VALUES: denota uno o más sucesos del valor 
más bajo del código de caracteres utilizado. 


La utilización de alguna de estas constantes, así como un método para 
inicializar variables en la WORKING-STORAGE, se presentan en el siguien- 
te programa: 


progra escribe un nombre y apar: lidos- 'aricerrados 
> o okentre apéstrofos, —subrayando 1 os apel. 1 idos. 
_——= 2 = 
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= — MORKING=STORAGÉ SECTION. _AXA2<A <AXAAXAXA AS 
== 01 IDENTIFICACIÓN. EZ - : 
= SEE PH . VALUE QUOTE. 


= == A SS 
== 05 FILLER TE : VALUE SPACES. == 
= == SPERLIDO-2 A o 
03 TELE PGN AOS == 
0 NOMBRE > PIC X(10). = 


OR VALUE QUOTE. 


01 SUBRAYADO. === 
OPE PCD VA SPACES 

- PIC XA) VALUE ALL *=". 
PIC xXazr VALUE ALL *=".- 


MOVE "LAURA? TO NOMBRE. 
——POVE="PABTOR*——FO-APECCIDO=1: == 
= -—— MOVE “URTIAGA” TO APELLIDO-2. 
== SPCAY- IDENTIFICACION. === 

== — E SUBRAYADO. - = == 
= = FIN-PROGRAMA. : == 
== = 


En la WORKING-STORAGE encontramos dos grupos, uno contenien- 
do el nombre y apellidos, y el otro el subrayado de los apellidos. 

En la descripción de estos dos grupos se observa que el nombre de cam- 
po FILLER se repite varias veces. A todos los campos que no van a ser re- 
ferenciados en la PROCEDURE se les llama de esta forma, ahorrándose la 
creación de un nombre de datos nuevo. Estos campos, la gran mayoría de 
las veces, se utilizan para separar campos que van a ser escritos. En el ejem- 
plo se utilizan para separar el nombre, primer apellido y segundo apellido. 

También aparece la cláusula VALUE. Esta se utiliza para dar valor al 
campo que califica. El valor es la constante que le sigue. 

El primer subcampo de IDENTIFICACION es un FILLER, que tiene un 
valor inicial de QUOTE, es decir, un apóstrofo. 

Si no existiese esta constante figurativa no podrían reflejarse apóstro- 
fos, ya que en un programa, si aparece la cláusula: 


05 FILLER PIC X VALUE ””. 


26 


el compilador mostrará un error en esa línea, ya que el segundo apóstrofo 
lo tomará como final de literal, no como contenido del mismo y al detec- 
tar el tercero dará un error. Este problema se soluciona utilizando la cons- 
tante QUOTE. 

El siguiente campo es APELLIDO-1, al que no se le da ningún valor ini- 
cial, porque lo tomará en la PROCEDURE. Lo mismo ocurre con APELLTI- 
DO-2 y NOMBRE. 

Para separar APELLIDO-1 de APELLIDO-2 se utiliza un FILLER inicia- 
lizado con un blanco, utilizando la constante SPACE. Esta constante se pue- 
de sustituir por una cadena de espacios en blanco acotados por apóstro- 
fos, pero es más cómodo utilizar la forma SPACE porque no es necesario 
contar cuántos blancos se ponen. 

El siguiente FILLER es de longitud 2 y está inicializado por un literal 
no numérico formado por una coma y un espacio en blanco. Hay que te- 
ner cuidado de no poner mayor longitud en el literal que sigue a VALUE 
que en el campo que inicializa. 

El último FILLER es para poner el apóstrofo final que delimita el nom- 
bre y apellidos. 

El siguiente campo fija el subrayado de los apellidos. Como no contie- 
ne ningún campo que aparezca en la PROCEDURE, está compuesto por FlI- 
LLER's. 

Dos de estos están inicializados con espacios para ajustar el subrayado 
a la posición de los apellidos en el grupo anterior. 

Los dos campos de subrayado, cuya longitud coincide lógicamente con 
la de los apellidos. Para inicializarlo se ha utilizado la constante ALL, se- 
guida del carácter “-”. El efecto de éste es llenar los 13 caracteres del FI- 
LLER con el guión, es decir, rellena la totalidad del campo con el carácter 
encerrado entre apóstrofos. 

El resultado de ejecutar este programa será: 


“PASTOR URTIAGA , LAURA * 


La cláusula VALUE puede ser sustituida por MOVE's en la PROCEDU- 
RE, pero es mucho más cómodo hacerlo en la WORKING. Además, si se 
hace con MOVE's, cada subcampo de datos deberá tener un nombre dife- 
rente, no pudiendo utilizar la técnica de los FILLER's. 
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LECTURA DINAMICA 9 


N todos los programas que se han presentado hasta ahora 
los datos se han introducido con MOVE's. Esto conlleva 
que si se quiere introducir datos diferentes debe modifi- 
carse el programa, siendo esta solución absurda e invia- 
ble. 

La solución es que el programa tenga la capacidad de 
pedir los datos al usuario, creándose de esta forma una in- 
dependencia entre los datos y el programa. 

La instrucción para leer datos de pantalla es: 


ACCEPT nombre-campo. 


El programa que se preserjta a continuación es análogo al anterior, úni- 
camente se incluye la lectura dinámica de datos. 


E 
| 
€_-- qE_ XX 
a 
o 
q€_ xIi-t5Lk[[-—-- 
| 
A 
A 
¡xEREEQ_—_ 
a 
x_ _ _  _—— —_—— 
o 


== IDENTIFICATION DIVISION. : 
=—-—PROGBAM-1D, EJ-ACCEPT, = a 


ENVIRONMENT DIVISION. z RRA 
DATA DIVISION. 
FILE SECTION. 
WORKING=STORAGE SEFTIDN. 


01 IDENTIFICACION. 


03 FILLER FIE X VALUE QUOTE. 
OS NOMBRE PIC XI(I1O). = 

05 FILLER PIC XX VacyE-> 
05 AFELLIDO-1 - PEA 

03 FILLEF: RIC - VALUE SFACES. 
05 AFELLIDO-2 PICOXC1I3. 


OS FILLER FPIE-X VALUE QUOTE. 
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Este prograrna ya no trata datos fijos, sirve para captar cualquier nom- 
bre y apellidos, escribirlos en pantalla con los apellidos subrayados. 

La primera instrucción es un DISPLAY para indicar al usuario que debe 
introducir el primer apellido. 

Después el ordenador se queda parado a la espera de que se teclee el 


primer apellido y pulse la tecla para que el ordenador tome los datos 
introducidos. 


Esta secuencia podría ser: 


PRIMER APELLIDO 
PASTOR [—] 


En ese momento, el contenido de APELLIDO-1, que con el primer AC- 
CEPT será “PASTOR”, toma el valor que haya sido tecleado. 
El mismo proceso se repite con el resto de DISPLAY"s y ACCEPT's. 
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INSTRUCCIONES ARITMETICAS 10 


L lenguaje COBOL, al ser un lenguaje destinado al mundo 
— de la gestión, no incluye entre sus instrucciones la posi- 
= bilidad de evaluar operaciones aritméticas complejas. 

Es entonces el momento de recordar a aquellos lecto- 
res que piensen en complicados cálculos trigonométricos 
== e integrales que el COBOL no es su lenguaje. 

Por el contrario, si lo que se necesita es un diseño de 
salida de fácil lectura y agradable a la vista, cuya obten- 
ción no requiera cálculos excesivamente difíciles, el CO- 

BOL dispone de todas las herramientas precisas; entre ellas se encuentran 
instrucciones como: 


— ADD. 

— SUBTRACT. 
— MULTIPLY. 
— DIVIDE. 


== SUMAR 


El formato de la instrucción sumar (ADD) se puede representar como: 


campo-1 


ADD | constante-1 


TO campo-2 
El campo-2 verá incrementado su valor con el valor de campo-1 o en 
la constante-1: 


campo-1 


m 
Sus | constante-1 


a campo-2 


Es la forma más sencilla de la suma. La instrucción anterior se puede 
ver ampliada: 
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campo-1 campo-2 ] 
ADD constante-1 constante-2 ] “” TO campo-n. 
Sería equivalente a dos instrucciones consecutivas: 
ADD campo-1 TO campo-n. 
- | constante-1 | — 
campo-2 
ADD constante-2 TO campo-n. 


Otra variante de la instrucción sumar se presenta seguidamente: 


campo-1 campo-2 ] ñ 
ADD constante-1 [ constante-2 SININO Sao: 
En este caso campo-n toma como valor la suma de los dos operandos. 
Su significación podría ser: 
campo-1 | campo-2 


2008 constante-1 constante-2 


y el resultado lo pone en campo-n 
En el siguiente programa se ilustra esta instrucción: 


WAREITINGE-ETAR SEFTIA 


WORFING-STORAGE SECTION. 
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Se trata de uno de los programas más largos realizados hasta el mo- 
mento, pero es fácil de entender: 

En la WORKING-STORAGE SECTION se han definido los campos que 
se van a emplear en el resto del programa: 6 campos numéricos y un cam- 
po denominado MENSAJE, que se subdivide en otros campos llamados LI- 
TERAL y CAMPO-RESULTADO. 

La PROCEDURE DIVISION tiene 5 nombres de párrafo: uno de finali- 
zación (FIN-PROGRAMA), que contiene el STOP RUN; otros dos (INICIO, 
DAR-VALORES) se utilizan para leer de pantalla los valores iniciales de al- 
gunos campos. Los párrafos PARTE-1 y PARTE-2 contienen ejemplos de 
los diferentes tipos de ADD's. 
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Supóngase que mediante el juego de instrucciones ACCEPT de INICIO 
se dan los siguientes valores: 


CAMPO-3 9 3 
CAMPO-4 0.124 
CAMPO-5 12.30 


Después de la primera instrucción (ADD CAMPO-3 TO CAMPO-4), CAM- 
PO-3 conservará su valor, mientras que CAMPO-4 será ahora 


CAMPO-4 0.2 1 7 
Y el mensaje que aparece en la pantalla: 
El resultado de la operación es: 0217 


Cuando se ejecuta ADD CAMPO-3 CAMPO-4 TO CAMPO-2, éste último 
tomará el valor: 


CAMPO-3 9.3 
CAMPO-4 0.2 1 7 
CAMPO-2 03.150 


En vez del valor 0 que tenía inicialmente (recordar que se le asignó me- 
diante la cláusula VALUE ZERO, en la definición del campo realizada en 
la WORKING STORAGE.) 

La expresión aritmética que se corresponde con la instrucción anterior 
es: 


CAMPO-2 = CAMPO-2 + CAMPO-3 + CAMPO-4 


Cuando se ejecuta la instrucción ADD CAMPO-3 CAMPO-4 TO CAM- 
PO-1, como la fórmula es idéntica, el resultado coincide plenamente con 
el anterior. 

Sin embargo, si el programa se modifica de la siguiente manera: 


01 CAMPO-1 PIC 9(4). 


eliminando la cláusula VALUE en la definición, al ejecutar de nuevo el pro- 
grama se produce un error. 

La razón es muy simple: CAMPO-1 no tiene valor inicial, no se le ha asig- 
nado ninguno y no se conoce su contenido. Es muy importante este «pe- 
queño» detalle: es necesario dar un valor inicial a aquellas variables que 
lo necesiten. 

En la siguiente instrucción también se presenta una peculiaridad: el 
campo que interviene en la suma como resultado tiene un PIC 9(3), mien- 
tras que el resultado (CAMPO-2 + CAMPO-5 + CAMPO-6 = CAMPO-6) 
(1541) tiene 4 cifras. Ya se recuerda que se comienza a ajustar por la de- 
recha y, por tanto, la última cifra se perderá. 

En pantalla se visualiza el mensaje: 
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El resultado de la operación es: 541. 


Este tambien es un aspecto a tener en cuenta: es necesario asegurarse 
de que en las operaciones no se producirá un truncamiento que podría 
acarrear graves errores. 

Siguiendo con la ejecución del programa, nuevamente se realiza la pe- 
tición de valores para las variables CAMPO-3, CAMPO-4, CAMPO-5. Para 
poder comparar los resultados con los obtenidos anteriormente, los valo- 
res tecleados serán, respectivamente: 93, 124, 1230. 

La instrucción ADD CAMPO-3 CAMPO-4 GIVING CAMPO-2 obtiene 
como resultado el valor 137 (93 + 124), independientemente de que el va- 
lor actual de CAMPO-2 era 310 (no se había modificado desde la última 
vez que se utilizó). En definitiva, se puede decir que responde a la fórmu- 
la: CAMPO-2 = CAMPO-3 + CAMPO-4. En este caso no es necesario dar un 
valor inicial a CAMPO-2, como se puede comprobar con la siguiente ins- 
trucción, cuyo resultado coincide plenamente con el anterior, a pesar de 
que el valor inicial de CAMPO-1 es distinto. 

Como resumen y conclusión se puede decir que: 


ADD... TO. Incrementa el valor inicial del campo resultado. 


ADD... GIVING. Destruye el valor inicial, sustituyéndolo por la suma 
de los operandos. 


En este punto es necesario hacer un inciso y exponer los campos nu- 
méricos reales, con cifras decimales. 
La picture que corresponde a un campo de este tipo tiene la forma: 
01 CAMPO-DECIMAL PIC 9(N)V9(D) 


donde: 


N: número de cifras enteras. 

D: número de cifras decimales. 

V: representa la coma decimal; no se almacena en el ordenador, sólo 
se emplea en operaciones aritméticas para alnearl las distintas cifras. 


IDENTIFICATION DIVISION. 
—PROGRAM- ID. EJ-DECIMALES. - 


* Esta programa.es un ejemplo de la adición empleando 
= Xx variables no enteras. = - 
A = 


== ENVIRONMENT DIVISION. 


DATA DIVISION. 
FILE SECTION. —— —= —— 


WORKING-STORAGE SECTION. 
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La primera curiosidad que surge en este programa es el empleo del pun- 
to decimal en lugar de la coma. Hay que recordar que se está utilizando 
notación anglosajona. 

El formato de los campos y la manera de sumarlos se representan en 
la figura siguiente. 


Campo 1 


Campo 2 


Campo 1 


Fig. 1. 


W 
e 


Se observa que a partir del punto decimal se ajusta a la izquierda y se 
rellena con ceros a la derecha. Igualmente se puede apreciar que los ca- 
racteres decimales también pueden sufrir truncamiento. 

En el mensaje se displaya toda la cifra seguida, sin separación decimal, 
ya que la V sólo se emplea en los cálculos internos y no tiene representa- 
ción externa. 

Después del amplio tratamiento dado a la operación sumar, muchos 
conceptos que también se emplean en las siguientes instrucciones habrán 
quedado lo suficientemente claros, por lo que no se considera necesario 
abundar en ellos. 

Sólo remarcar dos aspectos: 


— Es necesario considerar qué variables deben tener un valor inicial 
y definir éste. 

— Los truncamientos siempre son peligrosos, porque falsean los resul- 
tados. 


RESTAR 


La operación restar se representa mediante el vocablo inglés SUB- 
TRACT. 


Su formato más usual es: 


SUBTRACT | campos | FROM campo-2. 
———— | const-1 —— 


Donde el valor de campo-2 se ve decrementado en el valor de campo-1 
o const-1: 


7 2» _ [ campo-1 
campo-2 = campo-2 ac | 


(Atención con la inicialización de campo-2). 
La serie de instrucciones: 


SUBTRACT | camper | FROM campo-n. 
AAA const-1 —— 


SUBTRACT | a | FROM ¿ampo-n. 
Es equivalente a: 
campo-1 campo-2 ] 
SUBTRACT | ar [moy |... EROM camporn. 


El único campo que ve modificado su valor es campo-n. 
Si se emplea la instrucción de la forma: 
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campo-1 
const-1 


campo-2 


SUBTRACT | 
A const-2 


FROM | | SIVING campo-3. 


El valor de campo-3 es «machacado» por el valor de la operación 


campo-2 |] _ (campo-1 
const-2 const-1 


Ni campo-1 mi campo-2 ven modificado su valor. 


MULTIPLICAR 


Tiene como formatos: 


campo-1 


MULTIPLY | 
—————— | const-1 


| BY campo-2. 


murmeLy | “empol [ py [<ampol cria campos. 
————— | const-1 —= | const-2 ————— 


que se corresponden con las siguientes fórmulas aritméticas: 


campo-2 = campo-2 * | esuponl 


const-1 


cáipoS= | campo-2 | mn | campo-1 


const-2 const-1 


De donde se deduce que en el primer formato únicamente el multipli- 


cando (campo-1 o const-1) pueden ser un literal numérico. Campo-2 ha de 
ser una variable, puesto que va a intervenir en la multiplicación, y conten- 
drá el resultado de la misma. En el segundo formato, el valor inicial de 
campo-3 es indiferente, y tanto el multiplicando como el multiplicador 


pueden ser constantes. 


DIVIDIR 


Es una instrucción de la forma: 


campo-1 


DIVIDE | 
— const-1 


INTO campo-2. 


Donde: campo-2 es el dividendo y contendrá el resultado de la división. 


campo-1 
const-1 


divisor, su valor permanece a lo largo de la división. 


Así la serie de instrucciones: 
MOVE 125 TO campo-2. 
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DIVIDE 5 INTO campo-2. 
DISPLAY campo-2. 


Visualizaría en la pantalla 25, que es el nuevo valor de campo-2. 

Es preciso resaltar que la división por cero produce un error. 

El siguiente formato utiliza la opción GIVING, que permite que tanto 
el dividendo como el divisor puedan ser constantes. 


campo-1 INTO sata GIVING campo-3 [REMAINDER 


DIVIDE 
———— | const-1 const-2 campo-4]. 


Se divide | pupa | por | campo-1 
const-2 const-1 
ciente. Si se elige la opción REMAINDER campo-4, en campo-4 se alma- 
cenará el resto de la división entera. 
También es posible realizar una división: 


llevando a campo-3 el co- 


pIVIDE Í “2mPo-1 ] gy [ campo-2 | CrING campo-3 [REMAINDER...]. 
q const-1 — const-2 A 
campo-2 


En este caso | camper es el dividendo, | 
const-2 


const-1 
campo-3 se almacenará el cociente. 
MOVE 125 TO campo-2. 


DIVIDE campo-2 BY 5 GIVING campo-3. 
DISPLAY campo-3. 


Sería equivalente al ejemplo anterior. 


el divisor y en 


COMPUTE 


Operación que permite transferir a un campo el resultado de una ex- 
presión aritmética. 


COMPUTE campo = EXPRESION-ARITMETICA. 


Una expresión aritmética o fórmula matemática se compone de una se- 
rie de operadores que relacionan una serie de operandos (campos o cons- 


tantes). 
Los operadores empleados en COBOL son: 


+ : Suma. 

- : Resta. 

* : Multiplicación. 

/ : División. 

** : Exponenciación. 
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Siendo opcional el uso de paréntesis. 

Hay que tener en cuenta que cada operador debe ir precedido y segui- 
do de un espacio en blanco. 

La forma en que se calcula el resultado de una expresión aritmética si- 
gue las reglas: 


— En primer lugar, se ejecutan todas las exponenciaciones; si hubiese 
varias, serán prioritarias las que se encuentren más a la izquierda. 

— A continuación se calculan las multiplicaciones (*) y divisiones (/), 
siempre de izquierda a derecha. 

— Por último, se efectúan las operaciones de sumar (+) y restar (-). 


Este orden puede ser modificado con el empleo de paréntesis, ya que 
éstos se evalúan con anterioridad y siguiendo las reglas anteriores. 

El pequeño programa que se muestra a continuación sirve para aclarar 
todos estos aspectos. 


n El 
VE»: 


Como puede comprobarse, el resultado de la primera operación se cal- 
cula de la siguiente forma: 


— Primero, la multiplicación entre CAMPO-2 y CAMPO-3: (20). 
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— Segundo, la suma entre el resultado parcial obtenido hasta el mo- 
mento y CAMPO-1: (20 + 12 = 32). 


En la segunda operación el uso de paréntesis modifica el orden de eje- 
cución. 

Antes que nada se calcula el valor de la expresión encerrada entre pa- 
réntesis: (16) y a continuación se multiplica por CAMPO-2: (16 * 5 = 80). 

Se ha podido observar que no es necesario iniciar el campo RESULTA- 
DO, ya que su valor es sustituido por el de la expresión aritmética. 


41 


SENTENCIAS CONDICIONALES 1 


N todos los ejemplos realizados hasta el momento, las ins- 
trucciones se ejecutaban en secuencia, es decir, que des- 
pués de ejecutarse una instrucción, pasaba a realizarse la 
que le seguía. 

Esta situación no es la que se presenta normalmente a 
un programador. Lo habitual es que se presenten alterna- 
tivas, eligiéndose el camino adecuado en función de los 
datos introducidos. 

Las alternativas en un programa COBOL se presentan 
con la siguiente sentencia: 


IF condición 
sentencia ... 


[ELSE sentencia...] 


Como aplicación de esta sentencia, se realiza un ejemplo que resuelve 
el siguiente problema: se leerán dos datos numéricos; si el primero es ma- 
yor que el segundo, estos dos valores se restan. En caso contrario, se su- 
man. En ambos casos se debe imprimir por pantalla el resultado. 

En primer lugar, se muestra un organigrama que ayudará a realizar el 
programa. 

Los dos primeros símbolos que aparecen en el organigrama son de lec- 
tura de los dos primeros datos. El siguiente es un rombo que representa 
una sentencia condicional. En ella se pregunta si el DATO1 es mayor que 
el DATO2. 

Del rombo salen dos ramas, identificadas cada una de ellas por un «SI» 
o un «NO». 

El flujo del organigrama irá por una u otra rama en función de la res- 
puesta obtenida. 

En cada una de las ramas se realiza una operación, escribiéndose en la 
siguiente sentencia el resultado. 
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Fig. 1. 


A continuación se realiza un seguimiento del organigrama. 

Supóngase que los valores de DATO1 y DATO2 son 5 y 3, respectivamen- 
te. 

La comparación será cierta (5 es mayor que 3), luego el flujo continua- 
rá por la rama del «Sl». Se realiza la operación (5 — 3) y el resultado se im- 
primirá. 


dd 


Si los datos anteriores se hubiesen introducido al revés (DATO1 con 3 
y DATO2 con 5), la condición será falsa, yéndose el flujo por la rama del 
«NO»; procesándose la suma. 

Cualquier sentencia condicional que aparezca en un programa COBOL 
sólo tiene dos posibles respuestas: 


— SI o VERDAD. 
— NO o FALSA. 


El paso de este organigrama a un programa COBOL es el siguiente: 


MGE-SESTION 
ACEIES LION 


LN ATr 


> 
A CEL SECIONDO DAY 


Se toman los dos datos con las correspondientes sentencias ACCEPT's. 

A continuación se encuentra la sentencia condicional. A la partícula IF 
le sigue la condición (más adelante se explicarán todos los tipos de condi- 
ciones). 

La rama correspondiente al «Sl» está formada por todas las instruccio- 
nes (en el ejemplo sólo hay una) hasta encontrar el ELSE, y la rama del 
«NO» comprende todas las instrucciones que siguen a la partícula ELSE 
hasta encontrar el primer punto. 
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Si la condición fuese cierta, se ejecutaría la instrucción COMPUTE TO- 
TAL = DATO1 - DATO?2, pasando a ejecutarse después la sentencia DISPLAY, 
es decir, saltando las sentencias que siguen al ELSE hasta el primer punto. 

Al contrario pasaría si la condición fuese falsa. 

En las instrucciones condicionales tiene especial importancia la situa- 
ción del punto. 

Si la instrucción COMPUTE que sigue al ELSE no finalizase en punto, 
la sentencia que sigue a la primera sería parte de la rama del «NO», rom- 
piéndose la lógica del programa. 

Este es un ejemplo que muestra lo peligroso que puede ser la mala co- 
locación de un punto. 

Una condicional no es necesario que contemple los dos caminos, en 
muchas ocasiones no se utiliza la cláusula ELSE. En estos casos, si la con- 
dición es cierta se ejecutarán todas las instrucciones que siguen al IF has- 
ta encontrar el primer punto (ya que no está el ELSE). 

El formato de las condiciones es el siguiente: 


> 
< 
campo-1 = campo-2 
ela | 1S [NOT] GREATER THAN leal ! 
LESS THAN 
EQUAL 


Como se deduce del formato, se puede comparar un campo con otro 
o con un literal. La única combinación prohibida es la de comparar dos 
literales, ya que sería absurdo, porque el resultado será conocido «a prio- 
ri». 


Las condiciones que se pueden presentar son: 


— > o GREATER THAN Mayor que. 
— <o LESS THAN Menor que. 
— =0 EQUAL Igual. 


El COBOL permite utilizar símbolos de comparación o su correspon- 
diente en letras. 

Para contemplar todas las posibles condiciones que se puedan presen- 
tar se utiliza la partícula NOT. 


— NOT > o NOT GREATER THAN Menor o igual que. 
— NOT < o NOT LESS THAN Mayor o igual que. 
— NOT = o NOT EQUAL Distinto que. 


El siguiente programa, lee tres datos y los imprime en orden decrecien- 
te. 
El organigrama que lo contempla es: 
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Fig. 2. 
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El proceso consiste en ir comparando el contenido del primer campo 
con todos los demás, intercambiando su valor si es necesario, de tal forma 
que siempre quede el valor más alto en la primera variable, y así sucesiva- 
mente. 


Si los datos introducidos fuesen los siguientes: 


X+—6 
Y 9 
Z=9 


El proceso sería: 
Se compara si X es menor que Y, como es cierto se intercambian sus 
valores (ayudándose de la variable AUX). La situación en ese punto es: 


Xx—9 
Y+-—6 
L*=9 


A continuación la condición que se evalúa es si X es menor que Z, 
como es falsa (9 no es mayor que 9), no se ejecuta ninguna instrucción. 

En este momento, fuesen cuales fuesen los valores de entrada, después 
de estas dos primeras sentencias condicionales, la variable X contendrá el 
valor mayor de los tres leídos. 

La siguiente comparación es para colocar el valor intermedio en la va- 
riable Y y el menor en Z. 

El programa COBOL que corresponde al anterior organigrama es: 


DTSBLAV INTA 
JLS FTCAY “1NTROD 


En los IF que aparecen en este programa no se ha utilizado la cláusula 
ELSE porque no es necesario, finalizando los IF en el primer punto que 
encuentra. 


Si se observa la forma de escribir el programa, se ve que las instruc- 
ciones que pertenecen al IF están más adentro que éste. No es obligatorio, 
pero sí conveniente seguir esta norma, porque de manera gráfica se plas- 
ma qué instrucciones dependen de qué otras. 


En el formato del IF se ha visto que dentro del cuerpo va un conjunto 
de instrucciones, y se han mostrado algunos ejemplos de las mismas. Una 
instrucción válida puede ser otro IF, formándose lo que se denomina IF 
anidados. 


Se explicará esta nueva estructura sobre un ejemplo. 


Una empresa pide a su departamento de informática que realice un pro- 
grama para hallar el sueldo de cada empleado. Para ello, se toman como 
datos de entrada el código de empleado, sueldo, número de hijos y antigiie- 
dad. 


Si el empleado tiene hijos y su sueldo supera las 100.000 ptas., su gra- 
tificación será del 6 por 100 . En cambio, si su retribución es inferior o 
igual, será del 10 por 100, 


Si no tiene hijos, pero su antigiiedad es mayor de 7 años, la gratifica- 
ción es del 6 por 100, para antigiiedad inferior, será del 3 por 100. 
El organigrama que aborda el problema es el siguiente: 
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Fig. 3. 


Como se observa en esta figura, existen condiciones incluidas dentro 
de otras. « 
El paso a COBOL genera el siguiente programa: 


SEAECAM-.TA EME EA 
PROGRAM<1D. EMPLEADO 


1 


El funcionamiento de los IF's anidados es similar al de los IF's simples. 
La única consideración que hay que realizar es la correspondencia entre 
el IF y el ELSE. 

La regla que hay que seguir es: 

El primer ELSE que se encuentre en la estructura corresponde al pri- 
mer IF que le preceda y que no esté asignado ya. 

El primer ELSE del ejemplo se corresponde con IF SUELDO > 100000, 
que es el primer IF libre que le precede. El segundo se relaciona con IF 
N-HIJOS > 04, que es el primer IF libre anterior, ya que el que le precede 
inmediatamente ya está asignado. 

De esta forma se evita cualquier ambigiiedad que se pudiera producir. 

En el ejemplo, gráficamente se pueden adivinar las dependencias y re- 
laciones entre IF's y ELSE's. Un IF está relacionado con el ELSE que esté 
a su misma altura y depende de un IF que lo incluya. Es un nuevo detalle 
que resalta la importancia del “estilo de escribir programas. 

Volviendo al ejemplo anterior, la dirección de la empresa decide sus- 
pender la prima del 10 por 100; por tanto, hay que modificar el programa. 

El primer impulso consiste en quitar el primer ELSE y la instrucción 
que le sigue, quedando la estructura como sigue: 


IF N-HIJOS > 0 
IF SUELDO > 100000 
MOVE 6 TO GRA 


ELSE 
IF ANTIG > 7 
MOVE 6 TO GRA 


ELSE 
MOVE 3 TO GRA. 


Esta solución es errónea. Si se aplica la regla antes desarrollada, el pri- 
mer ELSE se relacicna con IF SUELDO > 100000, no con IF N-HIJOS > 
0, porque es el primer IF que queda libre. 

Para solventar estas situaciones, se utiliza la sentencia NEXT SENTEN- 
CE. Esta instrucción no realiza ningún tipo de operación, simplemente da 
paso a la siguiente instrucción que se deba ejecutar. 

Considerando esta nueva sentencia, la modificación sería la siguiente: 


IF N-HIJOS > 0 
IF SUELDO > 100.000 
MOVE 6 TO GRA 


ELSE 
NEXT SENTENCE 
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ELSE 
IF ANTIG > 7 
MOVE 6 TO GRA 
ELSE 
MOVE 3 TO GRA. 


Se ha introducido un ELSE que no realiza ninguna operación, pero que 
permite mantener la estructura de IF's anidados. 

¿El COBOL permite un nivel de anidamiento de IF's ilimitado, aunque 
los diferentes compiladores lo acotan a un número fijo. 

Todas las condiciones que se han visto hasta el momento son simples, 
pero también pueden formarse condiciones compuestas utilizando los ope- 
radores lógicos. 

Existen dos operadores lógicos: 


— AND 
— OR 


El funcionamiento de ambos operadores se muestra en la siguiente ta- 
bla de verdad: 


C1: Condición. F: Falso. 
C2: Condición. V: Verdad. 


Fig. 4. 


Se observa que al aplicarse el operador AND sobre una condición que 
sea falsa, el resultado ya es falso. Deben ser las dos verdaderas para que lo 
sea la condición compuesta. 

En cambio, en una condición calificada por un OR, basta con que sea 
cierta al menos una de las dos condiciones para que sea verdad el conjunto. 

Estos conceptos se explican con el siguiente ejemplo: 

En función del valor de tres códigos, debe asignarse determinados li- 
terales, como indica la siguiente tabla: 
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Códigos 


A=1lyB=1yC=1 
(A=1yB=1)0C>3 
A<>1ly(B>20C=2) 
A>loB=00C=0 


El programa que refleja esta tabla es: 


Literales 


APARTADO 
REGISTRADO 
ANOTADO 
TOTAL 


Todas las condiciones son triples y enlazadas con los dos operadores ló- 


gicos. 


En las condiciones compuestas existe una prioridad de operadores. Pri- 
mero se ejecutan todas las instrucciones relacionadas por un AND y des- 


pués los OR. 
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Estas prioridades pueden ser rotas por los paréntesis. Lo que está en- 
cerrado entre ellos es lo primero que se evalúa. 

La primera condición del programa está formada por los dos AND. 

En la segunda se ejecutarían primero las dos condiciones unidas por el 
AND, y el resultado de ésta se relacionará mediante un OR con la tercera 
condición. 

En la tercera, como se quiere realizar en primer lugar el OR, se en- 
cierra entre paréntesis, relacionándolo luego con el AND. 


D) 


PERFORM 12 


UE ocurre cuando en un programa es necesario efectuar 
varias veces las mismas operaciones? ¿Hay que repetir una 
y Otra vez dentro de la PROCEDURE las líneas que reali- 
zan esa operación? 

La respuesta a estas preguntas es una nueva instruc- 
ción: PERFORM, que con sus muchos y variados forma- 
tos convierte al COBOL en un lenguaje estructurado y le 
proporciona una gran potencia. 

Un ejemplo claro de la necesidad de repetir sentencias 
se encuentra en el programa explicado anteriormente (cap. 10, fig. 1), en 
el que los párrafos INICIO y DAR-VALOR son idénticos. 

El formato más simple de esta sentencia es: 


PERFORM nombre-de-párrafo. 


Y lo que hace es ejecutar, en el lugar del programa en que se encuen- 
tre, todas aquellas instrucciones contenidas en el párrafo mencionado. 

La estructura del programa de la fig. 1 del cap. 10 puede ser modifica- 
da y el resultado sería el mismo; con la ventaja adicional de tener un pro- 
grama muy estructurado y fácilmente legible. 


IDENTIETCATIONM DITUISTON 
CDENTIFILATION DIVIDION, 


OL 


WORK ING-STORAGE SECTION. 


01 


CAMPO-1 
CAMPO-2 
CAMPD-= 
CAMP.O-4 
CAMFO-5 
CAMPO-6 


MENSAJE. 

05 FIELER 
"EL RESULTADO DE LA OPERACION 
05 CAMPO-RESULTADO 


PROCEDURE DIVISION. 


PRINCIFAL. 
PERFORM. DAR-VALDRES. 


PERFORM PARTE-1. 


P1IC-914) VALLE 
FIC 9(4) VALUE 
PILI 
ER 
PICAS). 
PIC-2913) VALUE 
PIC X(33) VALUE 
ESE”. 


e 


PERFORM DAR-VALORES. 
PERFORM PARTE-2.: 


STOP RUN. 


DAR=VALORES. 


DISPLAY * TECLEE 
ACCEPT CAMPO-3. 
CISPLAY * TECLEE 
ACCEPT CAMPO-4. 
DISPLAY *TECLEE 
ACCEFT CAMPO-S. 


PARTE=1. 


ADD CAMPO-7 
MOVE CAMPO-4 
DISPLAY MENSAJE. 


ADD CAMPO-3 CAMPO-4 


MOVE CAMPO-2 
DISPLAY MENSAJE. 


VALOR CAMPO-=3: *. 


VALOR CAMPO-4: *. 


VALOR CAMPD-53 


ADD CAMPO-3 CAMPO-4- TO 


MOVE CAMPO-1 
DISPLAY MENSAJE. 


ADD CAMPO-2 CAMPO-5 


MOVE CAMPO-5 
DISPLAY MENSAJE. 


PARTE-2. 
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ADD CAMPO-3 CAMPO-4 


MOVE CAMPO-2 
DISPLAY MENSAJE. 


ADD-CAMPO-3 CAMPO—4 


MOVE CAMPO-1 
DISPLAY MENSAJE. 


CAMPO-4. 
CAMPO-RESULTADO., 


CAMPO-2. 
CAMPO-RESULTADO. 


CAMPO-1. 
CAMPO-RESULTADO, 


CAMPO-6. 
CAMFO-RESULTADO. 


CAMPO-2. 
CAMPO-—RESULTADO, 


FAMPO-1. 
CAMPO-RESULTADO. 


Con respecto al programa anterior, se observa que los párrafos INICIO 
y DAR-VALOR se han fundido en uno solo: DAR-VALORES, que se ejecuta 
dos veces, debido a dos instrucciones PERFORM DAR-VALORES. 


Pero el PERFORM tiene otra utilidad: permite repetir muchas veces 
una serie de sentencias al tiempo que controla el número de veces que se 
repite. 


Imaginemos un pequeño programa que lee de pantalla la nota de to- 
dos los alumnos de una clase y calcula la nota media. Si los alumnos de 
la clase son 40, ¿hay que repetir 40 veces un PERFORM? 


A simple vista se observa lo ridículo e ineficaz que resulta un progra- 
ma de este tipo. Además, ¿qué ocurriría si la clase no tiene 40 alumnos? 
Habría que modificar y compilar nuevamente el programa. 


Para solventar estas situaciones el COBOL dispone de una sentencia 
PERFORM que controla la ejecución de un párrafo en función de una con- 
dición que se evalúa previamente. 


PERFORM nombre-de-párrafo UNTIL condición. 


Su organigrama aparece en la siguiente figura 
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Fig. 3. 


Antes de ejecutar las instrucciones que componen el párrafo se com- 
prueba la condición: si es cierta, no se ejecuta el párrafo y se ejecuta la ins- 
trucción que se encuentra a continuación del PERFORM. Si no se cumple 
la condición, el párrafo se ejecuta una y otra vez, hasta que ésta se cumple. 

En resumen, el significado de esta instrucción podría ser: Enea el 
párrafo «X» hasta que se cumpla la condición. 

Si la condición resulta ser cierta ya la primera vez, el párrafo no se eje- 
cutará nunca. 

Veamos cómo queda el programa anterior: 


El programa principal consta de 4 PERFORM's: 


— El primero, LEER-ALUMNOS, tiene como única misión leer de pan- 
talla el número de alumnos presentes en clase. 

— A continuación el PERFORM LEER-NOTA hará que se repita este 
párrafo hasta que el número de veces que se hace esta lectura sea igual al 
número de alumnos que haya. 


Para el control de la repetición se emplea la variable CONTADOR, que 
inicialmente tomará valor cero y se irá incrementando en uno por cada 
nueva lectura. 


— Además, se realiza una validación de la nota tecleada: para que se 
considere correcta ha de ser mayor o igual que cero (NOTA = 0) y menor 
o igual que 10 (NOTA < 10). Mientras estas condiciones no se cumplan, 
se continuará pidiendo la misma nota (PERFORM LEER UNTIL CORREC- 
TA). 

— Cuando se hayan leído las notas de todos los alumnos (CONTADOR= 
= NUMERO-ALUMNOS), se calculará e imprimirá la MEDIA. 


El organigrama de este programa puede ayudar a comprender y pro- 
fundizar en el mismo; se representa en la figura siguiente: 
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Fig. 2. 


Es preciso detenerse aquí y reflexionar: si todos los conceptos que se 
han explicado hasta el momento, en especial el IF y el PERFORM, se com- 
prenden plenamente, el lector puede continuar el estudio del lenguaje CO- 
BOL. 

Si no es así, quizá sea conveniente retomar la lectura en aquel punto 
donde surgieron las primeras dificultades, porque todas las sentencias ex- 
puestas se emplearán mucho en sucesivos apartados y su desconocimien- 
to puede causar problemas en la comprensión de los siguientes ejemplos. 
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FICHEROS 1 


ASTA el momento, y para la toma de datos, se ha emplea- 
do únicamente la pantalla, a través de instrucciones como 
DISPLAY y ACCEPT. 
De igual manera se ha omitido la descripción de una 
- de las divisiones del COBOL: ENVIRONMENT DIVISION, 
y de la sección FILE SECTION perteneciente a la DATA 
DIVISION. 
Y es que, además de los periféricos estándar de entra- 
da/salida: el teclado y la pantalla, existen otros tipos de 
dispositivos que realizan la entrada/salida de los programas de usuario: dis- 
cos, cintas, impresoras... 
Todos ellos deben declararse en COBOL y esa declaración se hace en 
la ENVIRONMENT. 
Pero antes de explicar las sentencias de definición de ficheros es nece- 
sario conocer conceptos como organización y método de acceso. 
¿Qué es un fichero de datos? Un conjunto de informaciones almacena- 
das según una determinada estructura lógica, denominada registro. 


La forma en que esos registros se graban en el dispositivo se llama or- 
ganización y puede ser secuencial o por clave. 


— Secuencial: los registros se encuentran grabados en el mismo or- 
den en que se han introducido, sea cual sea su valor. 

— Por clave: existen unos campos dentro del registro que se emplean 
para ordenar el fichero. Los registros se graban en un lugar o en otro, de- 
pendiendo de los valores de estos campos. Estos campos se denominan cla- 
ve del registro. 


Se podría decir que la palabra organización se corresponde con el 
modo de «creación» del fichero. 
Una vez creado un fichero es necesario acceder a él para tratar la in- 
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formación que contiene. La forma de acceso, llamada también método de 
acceso, es función de la organización y puede ser: 


— Acceso secuencial: los registros se tratan uno a continuación de 
otro: para acceder al registro que está en la posición 5 es necesario pasar 
por los cuatro anteriores. 


Se pueden recorrer de forma secuencial tanto los ficheros creados se- 
cuencialmente como los creados por clave. 


Son ficheros secuenciales todos los almacenados en una cinta magnéti- 
ca. 


— Acceso directo: se puede acceder a un registro en particular sin ne- 
cesidad de recorrer los que le preceden. 


El acceso directo es típico de ficheros cuyos registros se han almace- 
nado dependiendo de su clave; suelen encontrarse grabados en discos (dis- 
kettes o discos duros). 

La división ENVIRONMENT se emplea para definir el «entorno» en que 
se va a procesar el programa: ordenador (CONFIGURATION SECTION) y 
dispositivos en que se encuentran almacenados los ficheros con los que el 
programa va a trabajar; ya sea para lectura y/o escritura (INPUT-OUTPUT 
SECTION). 

Su estructura es: 


- ENVIRONMENT DIVISION 
[CONFIGURATION SECTION. 
SOURCE-COMPUTER. 
OBJECT-COMPUTER. 
SPECIAL-NAMES.] 

[INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
I-O-CONTROL.] 


Las dos secciones son opcionales, sólo son obligatorias cuando se uti- 
lizan ficheros. 

Como es lógico suponer, los párrafos ENVIRONMENT, CONFIGURA- 
TION e INPUT-OUTPUT deben empezar en el margen A. 


- CONFIGURATION SECTION 


Su principal misión es la de especificar en qué modelo de ordenador 
se ha desarrollado el programa: 


66 


SOURCE-COMPUTER. Describe el modelo de ordenador en que se ha 
escrito el programa fuente. 

OBJECT-COMPUTER. Modelo en que se ejecuta el programa. 

Los dos párrafos comienzan en el margen A. 

En algunos compiladores estos dos párrafos no son necesarios, pero re- 
sulta conveniente ponerlos siempre, a efectos de legibilidad y mejor com- 
prensión del programa. 


- SPECIAL-NAMES 


Se emplea para intercambiar la misión de la coma y el punto decimal 
y su formato es: 


DECIMAL-POINT IS COMMA. 


Debe empezar en el margen B; si se omite la opción DECIMAL-POINT, 
se empleará la puntuación sajona: un punto entre las cifras enteras y de- 
cimales y una coma separando los millones; justo al revés de la notación 
castellana. 


 INPUT-OUTPUT SECTION 


De los dos párrafos que componen esta sección sólo se va a explicar el 
.que se llama FILE CONTROL, ya que la I-O-CONTROL apenas se utiliza. 


-—— FILE-CONTROL 


En él se definen todos y cada uno de los ficheros que van a intervenir 
en el programa, describiendo el tipo de dispositivo en que se almacenan, 
su organización y el método de acceso. Todo esto se hace mediante una 
cláusula SELECT. : 

Hay que resaltar aquí que debido a las diferencias existentes entre los 
distintos tipos de ordenadores, la cláusula SELECT es la que más diferen- 
cias presenta en un modelo y otro. Por tanto, cuando un programa que 
está funcionando en un ordenador quiere migrarse a otro, es conveniente 
revisar dicha cláusula. 

En este apartado se explica esta cláusula de acuerdo con el COBOL de- 
sarrollado por MICROSOFT para un IBM-PC (y compatibles). 


[ SELECT nombre-de-fichero 
ASSIGN TO dispositivo 


SEQUENTIAL | 


ORGANIZATION IS | DON 
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RANDOM 
ACCESS METHOD IS | SEQUENTIAL 
DYNAMIC 


[RECORD KEY IS campo]. 

Todos estos párrafos han de empezar en el margen B, excepto la sen- 
tencia FILE-CONTROL, que lo hace en el margen A. 

Se explican, paso a paso, todos los párrafos: 


— Nombre de fichero. Se trata de un nombre de 8 caracteres como 
máximo, que debe empezar con una letra. Es el nombre que utiliza el pro- 
grama para referirse al fichero. 

— ASSIGN. Sirve para relacionar el fichero con el dispositivo en el que 
se encuentra almacenado. Los dispositivos más usuales son disco e impre- 
sora: 


— ASSIGN TO DISK 
— ASSIGN TO PRINTER, respectivamente. 


— ORGANIZATION. Describe la forma en que el fichero ha sido o va 
a ser creado: 


— SEQUENTIAL. Se corresponde con la organización secuencial. 
— RANDOM. Organización por clave. 


En esta versión del lenguaje COBOL existe otra organización: 


— LINE SEQUENTIAL. Que reconoce el carácter de final de línea. 
— ACCESS METHOD. Describe la forma de acceso al fichero: 


— Secuencial: SEQUENTIAL 
— Directa: RANDOM 


La forma DYNAMIC indica que el fichero, dentro del mismo progra- 
ma, va a ser accedido de forma secuencial y directa. 


— RECORD KEY. Si se trata de un acceso directo, se utiliza esta cláu- 
sula para definir los campos que se emplearán como claves. 

Como ejemplo de la definición de ficheros, tenemos el programa que 
a continuación se expone, en él se han utilizado dos ficheros: 

El primero, ENTRADA, es un fichero secuencial que va a ser tratado 
de forma secuencial. 


El otro, SALIDA, es un listado y está asociado con una impresora. 


- IDENTIFICATION DIVISION. 
PROGRAMA EEC 


o ENVIRONMENT DIVISION. 


CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM-FC. 
DEJECT-COMFUTER. IBM-FC. 
SFECIAL-NAMES. 

DECIMAL-FPOINT IS COMMA. 


INPUT-OUTFUT SECTION. 
FILE-CONTROL. 


SELECT ENTRADA ASSIGN TO DISK 
ORGANIZATION SEQUENTIAL 
ACCESS SEQUENTIAL. 


SELECT SALIDA ASSIGN TO PRINTER 
ORGANIZATION SEQUENTIAL 
ACCESS SEQUENTIAL. 


Resumiendo, en la cláusula SELECT se hace la descripción, desde el 
punto de vista físico, de todos los ficheros intervinientes en el programa. 
Hay una sentencia SELECT para cada uno. 

Además de los datos ya proporcionados del dispositivo, organización y 
método de acceso, es preciso definir la estructura del fichero: qué campos 
componen el registro, cuál es su longitud, si los registros se agrupan o no 
en bloques, etc. 

Toda esta información se detalla en una sección de la DATA DIVISION 
llamada FILE SECTION. 


== FILE SECTION. 


Este párrafo, cuando existe, empieza en el margen A y debe seguir a la 
sentencia DATA DIVISION. 

Para cada uno de los ficheros utilizados se abre una cláusula FD (file 
description, descripción del fichero), que comienza en el margen A y va 
seguida por el nombre del fichero en cuestión. Su estructura es así: + 


FD nombre-de-fichero 
LABEL RECORDS 
[BLOCK CONTAINS] 
[RECORDING MODE] 
[DATA RECORDS] 

01 nombre-del-registro. 


Aunque algunos tipos de ordenadores emplean compiladores para los 
que es necesario especificar en el programa todas las cláusulas, la mayo- 
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ría de los compiladores prescinden del RECORDING MODE y DATA RE- 
CORDS, que pasan a ser meros comentarios. 

Todas son opcionales, excepto la cláusula en que se definen las etique- 
tas que tiene el fichero: 


LABEL RECORDS ARE STANDARD 


para todos, excepto los ficheros asignados a una impresora, que deben lle- 
var: 


LABEL RECORDS ARE OMITTED 


El nombre se debe corresponder con el definido en la cláusula SELECT. 

Antes de explicar la cláusula BLOCK CONTAINS es necesario aclarar 
el concepto de bloque: un bloque o registro físico es la unidad de infor- 
mación que un ordenador puede leer o escribir. Su longitud depende del 
modelo de ordenador. 

Por el contrario, un registro lógico es una unidad de información de- 
finida por el programador. Un registro físico puede estar constituido por 
varios registros lógicos y en ese caso se leerán y/o se escribirán todos a la 
vez. Esta situación es transparente para el programador, ya que es el sis- 
tema operativo el encargado de gestionarla, pero si los registros se van a 
agrupar en bloques el compilador debe saberlo. 


BLOCK CONTAINS N RECORDS 


Donde N es el número de registros lógicos; también es conocido como 
factor de bloqueo. 

Si N = 1 esta cláusula puede ser omitida, y significa que el registro fí- 
sico y el lógico coinciden. 

Aunque lo usual es que todos los registros de un fichero tengan la mis- 
ma longitud, el COBOL tiene prevista una instrucción en el caso de que 
esto no suceda. 


F 
RECORDING MODE IS (Y) 
vV 


F: se trata de registros de longitud fija. Es la opción tomada por defecto. 

U: los registros tienen distinta longitud, pero pueden agruparse en blo- 
ques. 

V: los registros son de distinta longitud, pero no pueden bloquearse. 


Cuando los registros son de longitud variable, se pueden emplear dos 
instrucciones adicionales con el fin de proporcionar más información al 
compilador: 


RECORD CONTAINS N CHARACTERS 
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que especifica el tamaño máximo de los registros. Si se omite, el compila- 
dor explora la descripción de los registros para conocerlo. 
RECORD IS 
AFA [RECORDS ARE 


Y permite dar un nombre distinto a cada uno de los registros lógicos 
diferentes contenidos en el fichero. Apenas se utiliza. 

A continuación de la cláusula FD debe aparecer la descripción de la es- 
tructura del registro. Para ello se utiliza un campo descompuesto en sub- 
campos: 


01 NOMBRE-REGISTRO. 
05 CAMPO-1 ... PIC 


nombre-registro-1 ... 


05 CAMPO ... PIC 


También se puede definir solamente la longitud y utilizar la WORKING- 
STORAGE SECTION para realizar la subdivisión: 


01 NOMBRE-REGISTRO PIC X(N). 


WORKING-STORAGE SECTION. 
01 NOMBRE-REGISTRO-W. 
05 CAMPO-1 ... PIC 


05 CAMPO-K ... PIC 


Se verá más adelante cómo estas dos posibilidades ocasionan instruc- 
ciones de lectura/escritura diferentes. 


IDENTIFICATION DIVISION. 
PROGRAM-ID. EJ-FICHEROS. 


ENVIRONMENT DIVISION. 


CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM-PC. 
OBJECT-COMPUTER. IBM-PC. 
SPECIAL-NAMES. 

DECIMAL-POINT 1S COMMA. 


Lil: 


INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT CLIENTE ASSIGN TO DISK 
ORGANIZATION SEQUENTIAL . 
ACCESS SEBUENTIAL. 
SELECT IMPRESO ASSIGN TO PRINTER 
ORGANIZATION SEQUENTIAL 
ACCESS SEQUENTIAL. 
DATA DIVISION. 
FILE SECTION. 


FD CLIENTE LABEL RECORD STANDARD 
VALUE OF FILE-ID *CLIENTE.DAT”. 


k 
X La clausula VALUE OF FILE-ID "NOMBRE FICHERO” es propia del 
* COBOL de MICROSOFT y relaciona el nombre físico del fichero 
* con el nombre lógico. 
Í Se entiende por nombre físico el nombre que tiene en el disco 
* el fichero. 
* 
01 REG-CLIENTE. 
05 CODIGO-CLIENTE PIC 914). 
05 NOMBRE-CLIENTE RICXC3IO 
OS DIRECC-CLIENTE PIC X(50). 
OS TOTAL-FACTURA PIC 9(9). 
05 DESCUENTO PIC 99499. 


FD IMPRESO LABEL RECORD OMITTED. 


01 LINEA FIC X(80). 


Se trata de la primera parte de un programa: inicialmente sus instruc- 
ciones de definición: dos ficheros, uno de ellos asociado a un disco y el 
otro a una impresora. 
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OPERACIONES CON FICHEROS 14 


NA vez definidos todos los ficheros de entrada y/o salida 
con los que va a trabajar el programa, así como los dispo- 
sitivos en que se encuentran, es necesario conocer las ins- 
trucciones necesarias para operar con ellos. 


>> == OPEN 
Es 


=== la primera operación y resulta imprescindible, ya 
que su misión es situar las cabezas de lectura o escritura al comienzo del 
fichero. 

El formato de la instrucción y su significado se explican a continuación: 
can a continuación: 


OPEN[INPUT nombre-de-fichero] 
[OUTPUT nombre-de-fichero] 
[1-O nombre-de-fichero] 


Se emplea: 


— OPEN INPUT. Si el fichero se va a utilizar únicamente como entra- 
da: en él no se va a escribir, sólo se leerán sus registros. 

— OPEN OUTPUT. El fichero se crea como salida; en él sólo se podrá 
grabar. Si el fichero existiera con anterioridad y tuviera contenido, éste se 
destruye y el fichero aparecerá vacío. Un típico ejemplo de un fichero 
abierto sólo como salida es uno de impresión. 

— OPEN 1-0. A lo largo del programa se va a leer y a escribir en el fi- 
chero. Un ejemplo es un fichero que sufre un proceso de actualización. 


Es necesario tener presente que al abrir un fichero mediante una ope- 
ración OPEN no se procesa ningún registro: sólo se coloca al comienzo 
del mismo. 
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Si un fichero ha sido abierto como INPUT o I-O, sus registros van a ser 
leídos a lo largo del programa. Esta lectura se realiza mediante una ope- 
ración READ, que transfiere a las áreas de trabajo el contenido del registro. 

Si el contenido del registro en el fichero es: 


0010ISIDORO SORIA SANZ 9300012 
y se ha definido una estructura de registro de la forma: 


01 REGISTRO. 
05 COD-CLIENTE PIC 9(4). 
05 NOM-CLIENTE PIC X(20). 
05 TOT-CLIENTE PIC 9(5). 
05 IVA-CLIENTE PIC 99. 


Después de una instrucción de lectura, cuyo formato se explicará a con- 
tinuación, los campos englobados en REGISTRO tendrán los valores: 


COD-CLIENTE = 0010 

NOM-CLIENTE = ISIDORO SORIA SANZ 
TOT-CLIENTE = 93000 
IVA-CLIENTE = 12 


A continuación ya se podrán efectuar operaciones con los campos re- 
cién «rellenados» por medio de la lectura. Se podría decir que una opera- 
ción de lectura transfiere el contenido de un registro en un fichero a un 
campo de datos definido en el programa. 

Unicamente se va a explicar una instrucción de lectura, que se corres- 
ponde con un acceso secuencial; el formato es: 


READ nombre-de-fichero [INTO campo] 

AT END operación. 

Ya se ha hecho suficiente hincapié en el significado de esta instrucción, 
que aporta dos nociones nuevas: 

La opción INTO campo posibilita al programador definir la estructura 
del registro en la WORKING-STORAGE SECTION en lugar de hacer esta 


definición en la cláusula FD de la DATA DIVISION. 
Las definiciones de ficheros de las siguientes figuras son equivalentes: 


IDENTIFICATION DIVISION. 


PROGRAM-ID. EJ-LECTURA. 


ENVIRONMENT DIVISION. 
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CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM-PC. 
OBJÉCT-COMPUTER. IBM-PC. 
SPECIAL-NAMES. 

DECIMAL-POINT 15 COMMA. 


INPUT-OUTPUT SECTION. 


FILE-CONTROL. 


SELECT FICHERO ASSIGN TO DISK 
ORGANIZATION LINE SEQUENTIAL 
ACCESS MODE SEQUENTIAL. 


DATA -DIVISION. 


FILE SECTION. 


FD FICHERO LABEL RECORD STANDARD 
VALUE OF FILE-ID ”CLIENTE.DAT?”. 


01 REGISTRO 
WORFING-STORAGE SECTION. 


01 REGISTRO-09. 
05 COD-CLIENTE 
0S NOM-CLIENTE 
OS TOT-CLIENTE 
OS IVA-CLIENTE 


01 TOTAL-FACTURA 
01 FINAL-FICHERO 
PROCEDURE DIVISION. 


PRINCIFAL. 
OPEN INPUT FICHERO. 


PIC X(31). 


PIC 9(4). 

PIC X (20). 
PIC 95D. 

P0-99; 


PIC 91(6),99. 
PIC X. 


MOVE *N* TO FINAL-FICHERO. 


PERFORM LEER-FICHERO. 


PERFORM TRATAMIENTO UNTIL FINAL-FICHERO = *S”, 


CLOSE FICHERO. 
STOF RUN. 


LEER-FICHERO. 


READ FICHERO INTO REGISTRO-4W 
AT END MOVE *S” TO FINAL-FICHERO. 


TRATAMIENTO. 
COMPUTE TOTAL-FACTURA = 


DISPLAY *CODIGO CLIENTE: 


TOT-CLIENTE + 
TOT-CLIENTE * IVA-CLIENTE 7 100. 
”-—COD-CLIENTE. 


DISFLAY “NOMBRE: ” NOM-CLIENTE. 


DISPLAY *TOTAL: ? TOTAL 


PERFORM LEER-FICHERO. 


FACTURA. 
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IDENTIFICATION DIVISION. - = 


PROGRFAM=TD7—Ed-LECPURA: 


ENVIRONMENT DIVISION. 


CONFIGURATION SECTION. 


SOURCE-COMPUTER. IBM-PC, 
QRIECT-COMFIUJTER. IBM-FC. 
SFECIAL-NAMES. 
DECIMAL-FPODINT 15 COMMA. 
INFUT=O0UTPUT SECTION. 
FILE-CONTROL. 
SELECT FICHERO ASSIGN TO DIS 


ORGANIZATION LINE SEQUENTIAL 
ACCESS MODE SEQUENTIAL. 


DATA DIVISION. 
FILE SECTION: 


FD FICHERO LABEL FECORD STANDARD 
VALUE OF FILE-ID *CLIENTE.DAT”. 


01 REGISTRO. 


OS3 COD-CLIENTE FIC 914), 

05 NOM-CLIENTE FIC X(20). 
OS-TOT=CCIENTE PIC 931 

OS IVA-CLIENTE - P106-99 


WORKING-STORAGE SECTION. 


01 TOTAL-FACTURA FIC 9(6),99. 
01 FINAL -FICHERO FIC X. 


FROCEDURE DIVISION. 


PRINCIFAL. 
OPEN INFUT FICHERO. 
MOVE *N* TO FINAL-FICHERO. 
PERFORM LEER-FICHERO. 
PERFORM TRATAMIENTO UNTIL FINAL-FICHERO = *S”, 
ELOSE-—FTIEHERO: 
STOF RUN. 


LEER-FICHERO. 
READ FICHERO AT END MOVE *S* TO FINAL-FICHERO. 


TRATAMIENTO. - 
COMFUTE TOTAL-FACTURA = TOT-CLIENTE + 
. TOT=CLIENTE * IVA-CLIENTE / 100. 
DISPLAY *CODIGO CLIENTE: * COD-CLIENTE. 
DISFLAY "NOMBRE: ” NOM-CLIENTE. 
DISFLAY *TOTAL: ”? TOTAL-FACTURA. 
PERFORM LEER-FICHERO. 


La única diferencia existente entre ellos es la manera de definir y leer 
el registro. 

En la segunda la definición de la estructura del registro se hace en la 
FILE SECTION y, por tanto, se lee READ FICHERO); en el primer pro- 
grama en la FILE SECTION se define únicamente la longitud del registro 
(01 REGISTRO PIC X(31)), mientras que la estructura del registro se des- 
cribe en la WORKING. 

En la instrucción de lectura, READ FICHERO INTO REGISTRO-W, se 
especifica el campo de la WORKING. Todas las operaciones posteriores se 
harán con los campos en que se subdivide REGISTRO-W. 


Fig. 1. 


LA 


Se puede ya observar que la instrucción READ FICHERO INTO es equi- 
valente a: 


READ FICHERO 
MOVE REGISTRO TO REGISTRO-W. 


En el programa aparece también la instrucción AT END, que equivale 
a una instrucción IF: si se detecta un final de fichero al leer un registro se 
realizan las operaciones que se indican a continuación. En este caso se 
pone a «S» el campo FINAL-FICHERO. 

La estructura de los dos programas es igual y es muy conocida en el 
mundo de las aplicaciones: se trata de la técnica de lectura anticipada; an- 
tes de comenzar el bucle principal se lee un registro. De esta manera, si 
el fichero esta vacío, nunca se ejecuta dicho bucle. 


Permite grabar registros en un fichero abierto con un OPEN OUTPUT 
y con organización secuencial: su formato es muy sencillo: 


WRITE nombre-de-registro [FROM campo]. 


Traslada los valores de los campos definidos en el programa (ya sea en 
la FILE SECTION o en la WORKING-STORAGE SECTION si se utiliza la 
opción FROM campo) al registro del fichero. 

Su utilización es tan sencilla que no se considera necesario ampliar su 
explicación. Unicamente se añade un ejemplo: se trata de la lectura de un 
fichero maestro y su actualización. Para ello se emplea otro fichero nue- 
vo, en el que se' graban los registros de aquellos empleados que tengan un 
contrato fijo en la empresa. 


== CLOSE 


Todos los ficheros que se hayan abierto previamente con una instruc- 
ción OPEN deben cerrarse con una instrucción CLOSE. Su formato se 
muestra seguidamente y su utilización se ilustra en los programas anterio- 
res. 


CLOSE nombre-de-fichero. 
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IDENTIFICATION DIVISION. 
PROGRAM-ID. EJ-LECTURA. 


ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 
SOURCE-COMFUTER. IBM-FC. 
OBJECT-COMPUTER. IBM-PC. 
SFELETAL-NAMES. 

DECIMAL-FOINT 15 COMMA. 

INPUT-QUTPUT SECTION. 

FILE-CONTROL. 
SELECT FICHERO ASSIGN TO DISK 


ORGANIZATION LINE SEQUENTIAL 
ACCESS MODE SEQUENTIAL. 


DATA DIVISION. 
FILE SECTION. 


FD FICHERO LABEL RECORD STANDARD 
VALUE OF FILE-ID *CLIENTE.DAT”. 


01 REGISTRO PIC XD 
WORK ING-STORAGE SECTION. 


01 REGISTRO-9. 


05 COD-CLIENTE PIC 914). 
OS NOM-CLIENTE PIE -209 
03 TOT-CLIENTE PIC 9D. 
05 IVA-CLIENTE E£TOCISZ 
01 TOTAL-FACTURA PIC 91(6),99. 
01 FINAL-FICHERO ETOX 


PROCEDURE DIVISION. 


FRINCIFAL. 
OPEN INPUT “FICHERO. 
MOVE ?*N”* TO FINAL-FICHERO. 
PERFORM LEER-FICHERO. 
PERFORM TRATAMIENTO UNTIL FINAL-FICHERO = *S”, 
CLOSE FICHERO. 
STOF RUN. 


LEER-FICHERO. 
READ FICHERO INTO REGISTRO-4 
AT END MOVE *?S* TO FINAL-FICHERO. 


TRATAMIENTO. > . 
COMPUTE TOTAL-FACTURA = TOT-CLIENTE + 
TOT-CLIENTE * IVA-CLIENTE / 100. 
DISPLAY *CODIGO CLIENTE: * COD-CLIENTE. 
DISPLAY “NOMBRE: * NOM-CLIENTE. 
DISPLAY ”TOTAL: ? TOTAL-FACTURA. 
PERFORM LEER-FICHERO. 
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ON un caso particular de ficheros, por lo que se conside- 
ra conveniente dedicarles un apartado especial. 

Se trata de ficheros intrínsecamente secuenciales y 
asociados a una impresora, por lo que la cláusula SELECT 
debe ser: 


SELECT LISTADO ASSIGN TO PRINTER 
ORGANIZACION SEQUENTIAL. 


En muchos compiladores es posible omitir, incluso, la 
cláusula ORGANIZATION, cuando se trata de ficheros de 


impresora. 
La longitud más usual de un registro de estas características es de 80 
ó 132 caracteres; 


FD LISTADO LABEL RECORDS OMITTED. 
01 LINEA PIC X(132) o X(80). 


_ Puesto que en un mismo listado hay diferentes tipos de líneas, todas 
ellas de la misma longitud, pero de diferentes contenidos, es preferible no 
definirlas todas en la FILE SECTION y hacerlo en la WORKING-STORA- 
GE, empleando, por tanto, como operación de escritura un WRITE LINEA 
FROM... 

Lógicamente se debe abrir como salida: OPEN OUTPUT LISTADO. 

Pero este tipo de ficheros tienen una instrucción de escritura particu- 
lar que le permite dejar líneas en blanco y hacer saltos de página de una 
forma cómoda y sencilla: 


WRITE nombre-de-registro [FROM identificador] 


BEFORE N LINES ] 
(AFTER PAGE 


El significado de BEFORE es que la línea se escribirá antes de saltar de 
página o dejar líneas en blanco, mientras que con AFTER primero se rea- 
liza el espaciado y seguidamente se imprime la línea. 


] ADVANCING | 
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Un ejemplo clarificador de este tipo de ficheros se encuentra en el pro- 
grama siguiente: 


IDENTIFICATION DIVISION. 
PROGRAM-1D. MAESTRO. 


Una empresa desea, al final de año actualizar el fichero 
general de empleados. 

Para ello dispone de un fichero "MAESTRO", que contiene un 
registro por cada empleado, con datos como número de nómina, 
sueldo base, IRFF, etc. Además contiene un campo especial, que 
indica si el empleado tiene un contrato fijo o eventual: si la 
fecha grabada en él (AAMM) es mayor que la fecha actual, el 
empleado sigue perteneciendo a la empresa y su registro se 
grabará en un nuevo fichero (ACTUAL). 

Se desea obtener un listado de todos aquellos empleados 
cuyo contrato ha vencido. - 

En el listado debe aparecer también el sueldo correspondiente 
al último mes, sin considerar la seguridad social y añadiendo 
una prima por número de hijos (1% por cada uno). 


HA E AE A ECC CE ACE A Y 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. IEM-FC. 
OBJECT-COMPUTER. IBM-PC. 
SPECIAL-NAMES. 

DECIMAL-POINT 15 COMMA. 

INPUT-O0UTPUT SECTION. 
FILE-CONTROL. 


SELECT MAESTRO ASSIGN TO DISK 
ORGANIZATION IS LINE SEQUENTIAL. 


SELECT ACTUAL ASSIGN TO DISK 
ORGANIZATION IS LINE SEQUENTIAL. 


SELECT LISTADO ASSIGN TO PRINTER. 


DATA DIVISION. 
FILE SECTION. 


FD MAESTRO LABEL RECORD STANDARD 
VALUE OF FILE-ID *MAESTRO. DAT”. 


01 REG-MAESTRO PIC X(100). 


FD ACTUAL LABEL RECORD STANDARD 
VALUE OF FILE-1D *ACTUAL.DAT”. 


01 REG-ACTUAL FIC X(100). 
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FD LISTADO LABEL RECORD OMITTED. = 


01 LINEA PIC X(80). 
WORKING-STORAGE SECTION. 
x ; 
* Puesto que ambos ficheros tienen 'una misma estructura 
* de registro, es mejos definir el registro en la WORKING 
* y emplear las clausulas READ MAESTRO INTO REG-COMUN y 
Xx WRITE REG-ACTUAL FROM REG-COMUN. 
A 
01 REG-COMUN. 
05 NUM-NOMINA PIC X(6). 
OS NOMBRE PIC X(30), 
05 DIRECCION PICXTSOI 
05 SUELDO-BASE PIC 9(6). 
05 NUM-HIJOS PI 
OS IRPF PIC 99. 
OS FEC-VENCIMIENTO PIC 914). 
01 FINAL-FICHERO PIC X VALUE *N”, 
01 CONT-PAGINAS PIcC-399 VALUE ZERO. 
x Campo destinado a controlar el salto de página. Cuando se 
* hayan impreso más de 50 líneas se saltará de página y se 
k escribirán nuevamente las cabeceras. Por eso toma como valor 
* inicial Si. 
01 CONT-LINEAS PIG—9P VALUE Sí. 
xk Campo que almacenará el número de empleados en plantilla. 
* Los empleados con contrato fijo tienen una fecha de 
* vencimiento toda a 9*s (9999). 
k 
01 CONTADOR PIC 9(6) VALUE ZERO. 
k 
* Campo intermedio que sirve para calcular el % del 
* sueldo base y que permite simplificar las operaciones 
* posteriores. 
xk 
01 PORCENTAJE FIC 9(4)V99, 
k 
* Campo que almacenará la fecha de proceso. La fecha del 
* sistema tiene formato AAMMDD y para efectuar la comparacion 
Xx se recibe en un campo subdivido en dos partes: La primera 
*X contendrá el año y el mes y la segunda el dia. 
x 
01 FECHA. 
05 COMPARAR ELSA 
05 DIA o 
x 


* Definición de las lineas del informe. 
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ol 


01 


01 


ol 


01 


01 


CARECERA1. 
05 FILLER PIC X1(57 
05 FILLER PIC X(8) 
"PAGINA: 
OS FAGINA-CAB1 FIC 29. 
CARECERAZ2. 
OS FILLER PIC-X120) 
OS FILLER PIC-X(32) 
"FERSONAL EN PLANTILLA CON FECHA ”. 
05 FECHA-CARZ PIE-99/90., 
SUBRAYARZ. 
OS FILLER FIC X(20) 
OS FILLER PICX137) 
CABECERAZ. 
ONCETCCERE FIC X(4) 
OS FILLER FIC X(6) 
OS FILLER PIC X(10) 
CS EILCER EICCCIa: 
NOMBRE Y APELLIDOS” 
OS FILLER PIC X(10) 
SN ETCCER PIC -X1(6) 
OS FILLER PIC X(5) 
OS FILLER PIC XX 
OSTFILLER PICS 
OS FILLER PIC Xx(4) 
OS FILLER PILI) 
DICELCCER PIC X(5) 
SUBRAYAR. 
OS FILLER PIC” X(4) 
OS FILLER PIC X(6) 
OS FILLER FIC X(4) 
o0S FILLER PIC X(30) 
OS FILLER PIC X(4) 
0S5—FILLER PIC X(6) 
OS FILLER PIC X(5) 
OS FILLER PIC XX 
05 FILLER PIC X(3) 
OS -FILLER PIC-X14) 
OS FILLER PIE-C7) 
OS FILLER PIC X(5) 
LINEA-DETALLE. 
05 FILLER FIC X(4) 
OS NOMINA-LINEA PIC-X16). 
OS FILLEF PIC X(4) 
0S NOMBRE-LINEA PIC X(30). 
03 FILLER PICXI3) 
OS SUELDO-L INEA PIC Z(3),.9(3). 
OS FILLER PIC X(5) 
OS HIJOS-LINEA PIC Z9: 
05 FILLER PIC X(4) 
OS IRPF-LINEA RIC- 9%, 
OS FTILLER PIC X(4) 


VALUE 
VALUE 


VALUE 
VALUE 


VALJE 
VALUE 


VALUE 
VALUE 
VALUE 
VALUE 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


VALUE 
VALUE 
VALUE 
VALUE 


VALUE 


VALJYE 


SPACES. 


SFACES. 


SFACES. 
A 


SFACES. 
*NOMINA”, 
SFACES. 


SPACES. 
"SUELDO” . 
SFACES. 
"NH? 
SPACES. 

e 
SFACES. 
*TOTAL”. 


SFACES. 
A 
SFACES. 
A ma 
SFACES. 
ALL-2=", 
SFACES. 


SFACES. 
a 
SFACES. 
AR 
SFACES. 
SPACES. 
SPACES. 
SPACES. 
SPACES. 


SFACES. 


0S TOTAL A 


PROCEDURE DIVISION. 


k 
k En él se efectúan las llamadas a los restantes procedimientos 
Xx del programa. Al estar todo centralizado y estructurado, resulta 
* un programa de más fácil lectura. 
k 
PRINCIFAL. 
PERFORM ABRIF-FICHEROS. 
PERFORM LEER-MAESTRO. - 
PERFORM TRATAMIENTO UNTIL FINAL-FICHERO = *S”. 
PERFORM CERRAR-FICHEROS. 
STOF RUN. 
TRATAMIENTO. 
k Primeramente se comprueba si se trata de un empleado con 
* contrato vigente. Si es así se grabará dará de alta el 
* registro en el fichero ACTUAL. 
* Si ha finalizado el contrato se imprimirá la correspondiente 
k la correspondiente línea de fichero. 


xk 
* 
x 
k 
xk 
xk 
*x 
k 


x 


IF FEC-VENCIMIENTO > COMFARAR 
PERFORM GFRARAR-ACTUAL 
¿ADD 1 TO CONTADOR 
ELSE 
PERFORM ESCRIBIR-INFORMES. 
FERFORM LEER-MAESTRO. 


ESCRIEIR-INFORMES. 


Antes de escribir la linea de detalle se comprueba si 
ya se han escrito 50 líneas. Si es así se imprimirán las 
Cabeceras. For este motivo y para que las cabecgras se 
escriban la primera vez, el contador de-líneas está 
inicializado a Sl. . 

Después se calculan los valores a imprimir y se mueven 
a la línea de detalle, para a continuación imprimir dicha 
línea WRITE LINEA FFOM LINEA-DETALLE. 


IF CONT-LINEAS > 50 
PERFORM ESCRIBIR-CABECERAS. 
COMPUTE FORCENTAJE = SUELDO-BASE / 100. 
COMFUTE TOTAL = SUELDO-PASE + FORCENTAJE * NUM-HIJOS 
- PORCENTAJE * IRPF. 
MOVE NUM—NOMINA TO NOMINA-LINEA. 


MOVE NOMBRE TO NOMBRE-L INEA. 
MOVE NUM-HIJOS TO HIJOS-LINEA. 
MOVE IRFF TO IRFPF-LINEA. 


MOVE SUELDO-BASE. TO SUELDO-L INEA. 
WRITE LINEA FROM LINEA-DETALLE AFTER 1. 
ADD 1 TO CONT-LINEAS. 

ABRIR-FICHEROS. 


MAESTFO sólo se utiliza para lectura, se abre com INFUT. 
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APEN TNEVIT mal 
OPEN INPUT MAESTRO. 


Se pueden observar en este programa, suficientemente documentado 
y explicativo, dos aspectos importantes; dos campos CONT-LINEAS y 
CONT-PAGINAS muy usuales en estos programas de impresión. 


KARA 


APENDICE 


PROGRAMA DE ALTAS, 
BAJAS Y MODIFICACIONES 


IDENTIFICATION DIVISION. 
PROGRAM-1D. ACTIJALIZAR. 


PROGRAMA QUE a A DE-—UN-EICHERO MAESTRO Y CTRO DE 
MOVIMIENTO OBTIENE EL MIFYVO MAESTRO, EN EL E £-DE 
AS SE RE MEEJAN aL. TAS, MODIFICANTONES yá BAJAS CON IN 
1.08 TRES FICHEROS ESTAN ORDENADOS as COnt DE EMPLEADO. 

AL. MISMO TIEMPO OUE SE ACTUALIZA SE OBTIE INCLISTADO CON 
LOs POSIBLES ERRORES QUE SE PRODUZCAN 

PO LTIMO ARORA JN LISTADE CON-ELOLSONTENIDO ETNAL DEL. 
FICHERO MAESTRO. 


ENVIRONMENT DIVISION. 
INFUT-QUTPUT SECTION. 
FILE-CONTROL 


SELECT-VIEJO ASSIGN TO DISK 
ORGANIZATION 1S LIME SEQUENTIAL. 


SELECT NUEVO ASSIGN_ TO DISK 
ORGANIZATION 15 LINE SEQUENTIAL. 


SELECT MOVI  ASSIGN_ TO _DISK 
- ORSANIZATION 1S LINE SEDQUENTIAL. 


SELECT IMPRE ASSIGN TO FRINTER, 


FD VIEJO LABEL RECORDS STANDARD 
VACUE-OF-FILE=ID""VIEJO.DAT 


01. REG-VIEJO.. 


05 COD-EMPRY PICOXKE). 
05 NOMBRE =V PICXG. 
05 DIREC=W PICOS. 
OSTTLF=4 a 
EFD NUEVO LABEL RECIADS STANDAR 
VALUE ME F7._E-1D “NUEVO.DAT” 
DÍ REG-=NLJEVO. = 
95 COD-EMEN PIC OXAUD). 
5 NOMBRE-=N PIC X(33D). - 
08 DIREC-N PIC X1(25). 
05 TLE-N PIC X(11): 
FD  MOvI LABEL RECORDS STANDARD = 
ALE OF FILE-ID “MOVI.DAT*. 
(01. REG-MOVI. 
0S NATOS. 
10 COD-EMP-" PIC OXUS). 
10 NOMBRE-M PLEXO 
10 DIREC=M ENCA 
e e O ¿e o a e a 
os ENDISO=M PIC X. 
FD  IMPRE LABEL RECORDS OMITTED. 
01 1.INEA PIC-X(80). 
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—GEA EE E — _ AAA AAA AAA — 
A A 2 GI 0 A 2 O 1) a 
05 CODIGO PIC X(S) 


FILLER a IC X(2)  VUÚALUE SPACES 
e PV A pr 5 E 


LESCRIBIR UNTIL FIN=-NUEVO = 2 
AA 


0 1 IE. A Y AL 


PDEREMRM TRATAR=" 


I[GH-VALUE ES UNA CONSTANTE FIGURATIVA GUE CONTIENE £ElL Mayo! 


¡AL-DE UN -FICHEKO 
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ENCICLOPEDIA PRACTICA DE LA 


INFORMATICA 


APLICADA 


INDICE GENERAL 


1 COMO CONSTRUIR JUEGOS DE AVENTURA 
Descripción y ejemplos de las principales familias de aventura para ordenador: 
simuladores de combate, aventuras espaciales, búsquedas de tesoros..., 


terminando con un programa que permite al lector construir sus propios libros 
de multiaventura. 


2 COMO DIBUJAR Y HACER GRAFICOS CON EL ORDENADOR 
Desde el primer «brochazo» aprenderá a diseñar y colorear tanto figuras 
sencillas como las más sofisticadas creaciones que pueda llegar a imaginar, sin 
necesidad de profundos conocimientos informáticos ni artísticos. 


PROGRAMACION ESTRUCTURADA EN EL LENGUAJE 
PASCAL 
Invitación a programar en PASCAL, lenguaje de alto nivel que permite 
programar de forma especialmente bien estructurada, tanto para aquellos que ya 
han probado otros lenguajes como para los que se inician en la informática. 


A COMO ELEGIR UNA BASE DE DATOS 
Libro eminentemente práctico con numerosos cuadros y tablas, útil para poder 
conocer las bases de datos y elegir la que más se adecúe a nuestras necesidades. 
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5 ANADA PERIFERICOS A SU ORDENADOR 
Breve descripción de varios periféricos que facilitan la comunicación con el 
ordenador personal, con algunos ejemplos de fácil construcción: ratón, lápiz 
óptico, marco para pantalla táctil... 


6 GRAFICOS ANIMADOS CON EL ORDENADOR 
En este libro las técnicas utilizadas para la animación son el resultado de unas 
pocas ideas básicas muy sencillas de comporender. Descubrirá los trucos y 
secretos de movimientos, choques, rebotes, explosiones, disparos, saltos, etc. 


1 JUEGOS INTELIGENTES EN MICROORDENADORES 
Los ordenadores pueden enfrentarse de forma «inteligente» ante puzzles y otros 
tipos de juegos. Esto es posible gracias al nuevo enfoque que ha dado la IA a la 
tradicional teoría de juegos. 


8 PERIFERICOS INTERACTIVOS PARA SU ORDENADOR 
Descripción detallada de la forma de construir, paso a pasa y en su propia casa, 
dispositivos electrónicos que aumentarán la potencia y facilidad de uso de su 
ordenador: tableta digitalizadora, convertidores de señales analógicas, 
comunicaciones entre ordenadores. 


COMO HACER DIBUJOS TRIDIMENSIONALES EN EL 
ORDENADOR PERSONAL 
Compruebe que también con su ordenador personal puede llegar a diseñar y 
calcular imágenes en tres dimensiones con técnicas semejantes a las utilizadas 
por los profesionales del dibujo con equipos mucho más sofisticados. 


1 () PRACTIQUE MATEMATICAS Y ESTADISTICA CON EL 
ORDENADOR 

En este libro se repasan los principales conceptos de las Matemáticas y la 

Estadística, desde un punto de vista eminentemente práctico y para su aplicación 

al ordenador personal. Se basan los diferentes textos en la presentación de 

pequeños programas (que usted podrá introducir en su ordenador personal). 


l CRIPTOGRAFIA: LA OCULTACION DE MENSAJES Y EL 
ORDENADOR 

En este libro se presentan las técnicas de mensajes a través de la criptografía 

desde los primeros tiempos hasta la actualidad, en que el uso de los 

computadores ha proporcionado la herramienta necesaria para llegar al 

desarrollo de esta técnica. 


1 2 APL: LENGUAJE PARA PROGRAMADORES DIFERENTES 
APL es un lenguaje muy potente que proporciona gran simplicidad en el 
desarrollo de programas y al mismo tiempo permite programar sin necesidad de 
conocer todos los elementos del lenguaje. Por ello es ideal para quienes reúnan 
imaginación y escasa formación en Informática. 
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1 3 ECONOMIA DOMESTICA CON EL ORDENADOR PERSONAL 
Breve introducción a la contabilidad de doble partida y su aplicación al hogar, 
con explicaciones de cómo utilizar el ordenador personal para facilitar los 
cálculos, mediante un programa especialmente diseñado para ello. 


l COMO SIMULAR CIRCUITOS ELECTRONICOS EN EL 
ORDENADOR 

Introducción a los diferentes métodos que se pueden emplear para simular y 

analizar circuitos electrónicos, mediante la utilización de diferentes lenguajes. 


1 5 COMO CONSTRUIR SU PROPIO ORDENADOR 

Cuando se trabaja con un ordenador, lo único que puede apreciarse, a simple 
vista, es una especie de caja negra que, misteriosamente, acepta una serie de 
instrucciones. En realidad, un ordenador es una máquina capaz de recibir, 
transformar, almacenar y suministrar datos. 


1 EL ORDENADOR COMO INSTRUMENTO MUSICAL Y DE 
COMPOSICION 

Análisis de cómo se puede utilizar el ordenador para la composición o 

interpretación de música. Libro eminentemente práctico, con numerosos 

ejemplos (que usted podrá practicar en su ordenador casero) y lleno de 

sugerencias para disfrutar haciendo de su ordenador un verdadero instrumento 

musical. 


1 SISTEMAS OPERATIVOS: EL SISTEMA NERVIOSO DEL 
ORDENADOR 

Características de diversos sistemas operativos utilizados en los ordenadores 

personales y caseros. Se trata de llegar al conocimiento, ameno aunque riguroso, 

de la misión del sistema operativo de su ordenador, para que usted consiga sacar 

mayor rendimiento a su equipo. 


l UNIX, EL ESTANDAR DE LOS SISTEMAS OPERATIVOS 
MULTIUSUARIO 
La aparición y posterior difusión del sistema operativo UNIX supuso una 
revolución en el mercado, de tal modo que se ha convertido en el estándar de 
los sistemas multiusuario. Su aparente complejidad podría provocar, en 
principio, un primer rechazo, pero debido a su potencia se convierte 
rápidamente en una extraordinaria herramienta de trabajo apta para cualquier 
tipo de aplicaciones. 


1 0 EL ORDENADOR Y LA ASTRONOMIA 
Los cálculos astronómicos y el conocimiento del firmamento en un libro 
apasionante y curioso. 
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? VISION ARTIFICIAL. TRATAMIENTO DE IMAGENES POR 
ORDENADOR 

El procesado de imágenes es un campo de reciente y rápido desarrollo con 

importantes aplicaciones en área tan diversas como la mejora de imágenes 

biomédicas, robóticas, teledetección y otras aplicaciones industriales y militares. 

Se pan los principios básicos, los sistemas y las técnicas de procesado más 

usuales. 


2 1 PRACTIQUE HISTORIA Y GEOGRAFIA CON SU ORDENADOR 
Libro interesante para los aficionados a estas ciencias, a quienes presenta una 
nueva visión de cómo utilizar el microordenador en su estudio. 


2 LA CREATIVIDAD EN EL ORDENADOR. EXPERIENCIAS EN 
LOGO 

El LOGO es un lenguaje enormemente capacitado para la creación 

principalmente gráfica y en especial para los niños. En este sentido se han 

desarrollado numerosas experiencias. En el libro se analizan estas experiencias y 

las posibilidades del LOGO en este sentido, así como su aplicación a su 

ordenador casero para que usted mismo (o con sus hijos) pueda repetirlas. 


23 EL LENGUAJE C, PROXIMO A LA MAQUINA 

Lenguaje de programación que se está imponiendo en los microordenadores más 
grandes, tanto por su facilidad de aprendizaje y uso, como por su enorme 
potencia y su adecuación a la programación estructurada. Vinculado 
íntimamente al sistema operativo UNIX es uno de los lenguajes de más futuro 
entre los que se utilizan los micros personales. 


24 BASIC 
El lenguaje BASIC es la forma más fácil de aprender las instrucciones más 


elementales con las que podemos mandar a nuestro ordenador que haga las más 
diversas tareas. 


25 COMO ELEGIR UNA HOJA ELECTRONICA DE CALCULO 

En este título se estudian las diferentes versiones existentes de esta aplicación 
típica, desde el punto de vista de su utilidad para, en función de las necesidades 
de cada usuario y del ordenador de que dispone, poder elegir aquella que más se 
adecúe a cada paso. 


26 BASIC AVANZADO 

Una vez conocidas las instrucciones fundamentales del lenguaje BASIC se 
plantea la cuestión de la realización de programas que resuelvan problemas o 
aplicaciones que se nos presentan diariamente en el trabajo, en casa o en los 
estudios. Este libro trata de mostrar cómo se podrían realizar algunas de estas 
aplicaciones, estudiando diversas estructuras que proporciona el lenguaje BASIC 
(como las subrutinas) y viendo las ideas fundamentales para realizar gráficos en 
pantalla mediante un programa y para almacenar datos en discos o cintas 
mediante los ficheros. 
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21 APLIQUE SU ORDENADOR A LAS CIENCIAS NATURALES 
Ejemplos sencillos para practicar con el ordenador. Casos curiosos de la 
Naturaleza en forma de programas para su ordenador personal. 


28 PRACTIQUE FISICA CON SU ORDENADOR 

Deja que el ordenador te ayude en tus estudios. Materias tan difíciles como la 
Física, se ponen a tu alcance de una manera entretenida y mucho más clara, con 
programas que te permitirán entender las cosas desde un punto de vista más 
real. 

Definiciones, fórmulas, gráficos y ejemplos, en un pequeño manual que puedas 
utilizar en cualquier momento. 


29 PRACTIQUE QUIMICA CON SU ORDENADOR 

En nuestra búsqueda particular de la «piedra filosofal», al modo de los antiguos 
alquimistas, nos ayudaremos del ordenador para que nos resulte más fácil. Con 
este libro conseguiremos entender fácilmente las valencias de los elementos, las 
reacciones Redox y las distintas teorías sobre el átomo. Nos servirá de guía para 
aprender la tabla periódica de los elementos y nos ayudará a comprender, 
mediante gráficos, una reacción en cadena. Podremos así convertir nuestra casa 
y nuestro ordenador en un gran laboratorio. 


3() APRENDA MATEMATICAS Y ESTADISTICA CON EL 
LENGUAJE APL 


APL es un lenguaje muy potente que proporciona gran simplicidad en el 
desarrollo de programas. Indudablemente, es mucho más apto que BASIC para 
la construcción de pequeños programas que realicen operaciones matemáticas 
de dificultad media, que además se expresan de una forma muy semejante a la 
notación matemática ordinaria, lo que lo hace fácilmente comprensible. 


3 1 LOS LENGUAJES DE LA INTELIGENCIA ARTIFICIAL 
Libro en que se describen los lenguajes específicos para la «elaboración del 
saber» y los entornos de programación correspondientes. El conocimiento de 
estos lenguajes, además de interesante en sí mismo, es sumamente útil para 
entender todo lo que la Inteligencia Artificial supondrá para el futuro de la 
Informática. 


3 2 LA ESTACION TERMINAL PERSONAL 

Las modernas técnicas de comunicación van permitiendo que las grandes 
capacidades de proceso y el acceso a bases de datos de gran tamaño estén cada 
día más al alcance de cada usuario (fuera ya de los centros de proceso de datos). 


3 3 COBOL 


Este libro pretende introducir al lector en uno de los lenguajes más utilizados y 
menos considerados del mundo informático. El Cobol es el lenguaje de gestión 
por excelencia y está presente en el desarrollo del software en la gran mayoría 

de empresas e instituciones públicas. 
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34 ADA 


El considerable esfuerzo desarrollado por el Departamento de Defensa de los 

Estados Unidos (DoD) para que el lenguaje Ada fuese desarrollado quedará 

E PENEROS por las aportaciones de este lenguaje a los sistemas informáticos del 
turo. 

Sus aplicaciones originales, sistemas en tiempo real para mando y control en el 

área de Defensa, han sido ampliadas al campo industrial para el control de 

procesos, aplicaciones en tiempo real, inteligencia artificial, etcétera. 


3 > EL ORDENADOR Y LA LITERATURA 

En este libro se examinan procesadores de textos, programas de análisis literario 
y una curiosa aplicación desarrollada por el autor: APOLO, un programa que 
compone estructuras poéticas. 


3 6 EL ORDENADOR COMO MAQUINA DE ESCRIBIR 
INTELIGENTE 

Descripción de algunos de los programas para tratamiento de textos existentes 

en el mercado, análisis comparativos y estudio de las posibilidades de cada uno 

de ellos. Guía práctica para la elección del procesador de textos que más se 

adecúe a nuestras necesidades y al ordenador personal del que dispongamos. 


3 1 MS-DOS 


El sistema operativo de muchos ordenadores personales es el sistema operativo 
de disco de Microsoft, más conocido como MS-DOS, que recibe su nombre de su 
principal actividad: manejar los discos y archivos de discos. Su conocimiento 
puede llegar a ser tan profundo como deseemos, las nociones básicas, sin 
embargo, pueden llegar a ser imprescindibles para el manejo de nuestro 
ordenador. 


38 REDES DE AREA LOCAL 

El objetivo de este libro es el de proporcionar al lector un conocimiento claro 
de lo que son las redes locales, de su tecnología, problemática y futuro, de forma 
que, si lo desea, pueda profundizar posteriormente, por medio de bibliografía 
especializada o por la práctica profesional. 


3 Ú LOS FUNDAMENTOS DE LA GRAFOLOGIA APLICADA Y SU 

POSIBLE TRATAMIENTO CON UN ORDENADOR PERSONAL 
Se presentan en este libro los perfiles grafológicos óptimos correspondientes a 
diversas actividades laborales, así como los programas de ordenador necesarios 
para el manejo de estos datos. Obra eminentemente práctica y de aplicación de 
los conceptos teóricos desarrollados en ella. 


95 


40 ¿MAQUINAS MAS EXPERTAS QUE LOS HOMBRES? 

Después de situar los «sistemas expertos» en el contexto de la Inteligencia 
Artificial y describir su construcción, su funcionamiento, su utilidad, etc., se 
analiza el papel que pueden tener en el futuro (y en el presente, ya) de la 
Informática, así como los polémicos temas de la «capacidad para desbancar a la 
inteligencia humana», y las posibilidades de «aprender» de que se puede dotar a 
un procesador, etcétera. 


NOTA: 
Ediciones Siglo Cultural, S. A., se reserva el derecho de modificar, sin previo 
aviso, el orden, título o contenido de cualquier volumen de esta colección. 
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Las pretensiones del presente libro son las 
de conseguir un acercamiento del lector 
hacia el muchas veces vilipendiado 
COBOL y dar a conocer el tipo de 
problemas que puede solventar de forma 
más rápida y sencilla que el resto de los 
lenguajes. 


Este libro no es un manual de COBOL, es 
una iniciación a este lenguaje que muestra 
sucesivos, y cada vez más complejos, 
ejemplos de la estructura del mismo. 


Los programas que se exponen en el libro 
han sido realizados con el compilador de 
COBOL de MICROSOFT versión 2.00 en 
un IBM/PC. 


